Código
begin
if Key =#13 then
begin
Key:=#0; // tira o ruído qndo pressiona o enter.
Perform(WM_NEXTDLGCTL,0,0);
end;
end;
(*
Obs.: Se não funcionar, setar propriedade KeyPreview do formulário para True.
*)
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009