Opção de escolha entre o tab e o enter
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?
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?
Wagner
Curtidas 0
Respostas
Edupgarcia
03/03/2004
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;
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;
GOSTEI 0