Delphi dicas

O foco não aparece no componente...

{ Desenvolvedor: Jônatas de O. Ramalho Data: 28/11/2007

Ctrl = Componente que receberá o foco.

ActiveCtrl = passe sempre o valor

edtCliente = TEdit

"ActiveControl" (Este é o TWinControl padrão do Form em que está o componente).

Ex: SetFocusCtrl(edtCliente, ActiveControl);

Em alguns casos o foco não aparece no componente que se indicou, geralmente isso

ocorre depois de uma mensagem, por exemplo em um TEdit apesar de se poder digitar

algo nele. Isso irá corrigir. }



procedure SetFocusCtrl(Ctrl: TWinControl; ActiveCtrl: TWinControl);

begin

        Ctrl := ActiveCtrl;

        ActiveCtrl := nil;

        PostMessage(TWinControl(Ctrl).Handle, WM_SETFOCUS, 0, 0);

        TWinControl(Ctrl).SetFocus;



end;



Um abraço amigos Delphianos!