Tem uma maneira bem prática de implementar Enter como Tab em todos os seus
formulários. Se todos eles já são herdados de uma classe básica, então
altera a classe básica da seguinte maneira:
1) Na seção private do form pai, de onde todos os outros forms são herdados,
declare a seguinte interface:
procedure CMDialogKey(var Msg: TCMDialogKey); message CM_DIALOGKEY;
2) Declara o seguinte código para este novo método (assumindo que o nome da
classe do form principal que é herdado pelos outros formulários se chama
TFormPai):
procedure TFormPai.CMDialogKey(var Msg: TCMDialogKey);
begin
if Msg.CharCode = VK_RETURN then
SelectNext(ActiveControl, True, True)
else
inherited;
end;
3) Recompile sua aplicação (Build All).
Pronto! Todos os seus formulários agora podem ser navegados, campo a campo,
com ENTER!
>From: "pcinfowave" <[EMAIL PROTECTED]>
>Reply-To: delphi-br@yahoogrupos.com.br
>To: delphi-br@yahoogrupos.com.br
>Subject: [delphi-br] Re: Enter Tab
>Date: Fri, 30 Mar 2007 00:11:12 -0000
>
>Ok, eu já uso herança, porem alguns forms não sao herdados do
>frmbasico, por isso estou tentando ver este metodo.
>
>de todo modo, obrigado!
>
>[]´s
>Paulo
>
_________________________________________________________________
MSN Messenger: converse com os seus amigos online.
http://messenger.msn.com.br
