Buscar

O foco não aparece no componente...

Código

{ 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!
 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Windows
Adicionada dia: 04/12/07
Por: Jônatas Ramalho
Visualizada: 4429 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009