Código
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!
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009