Buscar

Como controlar o pressionamento da tecla enter?

Código

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 <Enter>, #9 corresponde a tecla TAB }
  if Key = #13 then
  begin
  Key := #0 { Suprime o som }
  { escreva aqui os seus comandos }
  end;
 end;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Arquivos
Adicionada dia: 05/06/03
Por: Felipe Monteiro
Visualizada: 7878 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009