Foco - como focar um determinado componente

procedure SetFocus(nome_obj:string):string;

var

v_js :string;

begin

      { Utilizada para setar o foco em um objeto do form. }

       v_js := '<script language='+#34+'javascript'+#34+'>'+#13+

           'var theform;'+#13+

           'if 

(window.navigator.appName.toLowerCase().indexOf('+DoubleQuoted('netscape')+') 

 > -1) {'+#13+

         'theform = document.forms['+#34+'_ctl0'+#34+'];'+#13+

           '}'+#13+

           'else {'+#13+

         'theform = document._ctl0;'+

           '}'+#13+

               'theform.'+nome_obj+'.focus();'+#13+

               '</script>';

       Self.RegisterStartupScript('foco',v_js);

end;

Utilize-a da seguinte maneira:

SetFocus(TextBoxCodigo.ID);

----- versao corrigida (nao testei)

procedure SetFocus(nome_obj:string):string;

> var

> v_js :string;

> begin

>      { Utilizada para setar o foco em um objeto do form. }

> 

>       v_js := '<script language='+#34+'javascript'+#34+'>'+#13+

>                   'var theform;'+#13+

>                   'if 

> (window.navigator.appName.toLowerCase().indexOf('+#34+'netscape'+#34+') 

>  > -1) {'+#13+

>                     'theform = document.forms['+#34+'_ctl0'+#34+'];'+#13+

>                   '}'+#13+

>                   'else {'+#13+

>                     'theform = document._ctl0;'+

>                   '}'+#13+

>               'theform.'+nome_obj+'.focus();'+#13+

>               '</script>';

>       Self.RegisterStartupScript('foco',v_js);

> end;

> 

> Utilize-a da seguinte maneira:

> 

> 

> SetFocus(TextBoxCodigo.ID);