Fórum Enter para troca de Campos #183839
23/09/2003
0
Como faço para usar o botão de Enter para mudar de campos, por exemplo nos edit boxes ?
Satellitepop
Curtir tópico
+ 0
Responder
Posts
23/09/2003
Mmtoor
procedure TFrm_Opcoes.DBEDIT1KeyPress(Sender: TObject; var Key: Char);
begin
with Tedit do
If Key = #13 Then
Begin
SelectNext(Sender as tWinControl, True, True );
Key := 0;
end;
end;
MMTOOR2003
begin
with Tedit do
If Key = #13 Then
Begin
SelectNext(Sender as tWinControl, True, True );
Key := 0;
end;
end;
MMTOOR2003
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)