domingo, 24 de maio de 2009

Como controlar o pressionamento da tecla enter?

Procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);
{ através do evento onKeyPress do formulário de controle... }
begin
{ se a "var Key" retornar o código #13 corresponde a , #9 corresponde a tecla TAB }
if Key = #13 then
begin
Key := #0 { Suprime o som }
{ escreva aqui os seus comandos }
end;
end;

Nenhum comentário:

Postar um comentário