Para fazer a tecla Enter funcionar como Tab é um processo de 3 passos:
1) Setar a propriedade KeyPreview da Form para True
2) Setar a propriedade Default de todos os botões da Form para False
3) Criar um evento OnKeyPress para a Form como este:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #0;
Perform(Wm_NextDlgCtl,0,0);
end;
end;
Nenhum comentário:
Postar um comentário