Buscar

Criando tecla rápidas

Código

{Para chamar uma tela ou realizar qualquer coisa via teclado usa-se a seguinte linha de comando no evento keypreview do form principal}

//no keypreview do form coloca-se true

procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = #13 then
   begin
     showmessage('Voce apertou no enter');
  end;
end;

Publicidade

Vote na dica




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

Detalhes da dica

Categoria: Forms
Adicionada dia: 25/08/08
Por: Klerysson
Visualizada: 7924 vezes

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