Enter para troca de Campos
Como faço para usar o botão de Enter para mudar de campos, por exemplo nos edit boxes ?
Satellitepop
Curtidas 0
Respostas
Mmtoor
23/09/2003
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
GOSTEI 0