teclas de atalho

[felipeiw]

Pessoal tem como usar a tecla ALT + numero, para executar um método, exemplo ALT + 1 (executa x) ALT + 2 (executa y) ?

abs e obrigado

[BigWings]

14 horas atrás, felipeiw disse:

Pessoal tem como usar a tecla ALT + numero, para executar um método, exemplo ALT + 1 (executa x) ALT + 2 (executa y) ?

Basta implementar o OnKeyDown do formulário.

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if (ssAlt in Shift) and (Key in [VK_NUMPAD1, Ord('1')]) then
    ...
end;

 

[felipeiw]

Deu certo muito obrigado.

[Alexandre de Paula]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.