Op��o de escolha entre o tab e o enter

Question

Ol� pessoal,Um pequena duvida tem como eu usar o tab e o enter, para passa de um campo para outro, usar os dois (o usuario escolhe se da um enter ou tab para mudar de campo) isso � possivel?...

Edupgarcia · Answer

1 - Mude a Propriedade KeyPreview do form para True;
2 - No evento KeyPress do form digite;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
[color=green:3b143c69d3]
[size=18:3b143c69d3]
if Key = #13 then begin
Key := 0;
Perform(WM_NEXTDLGCTL, 0, 0);
end;//if
[/size:3b143c69d3]
[/color:3b143c69d3]
end;

F�rum Op��o de escolha entre o tab e o enter #218009