Disparar procedimento ao pressionar Ctrl N no form
como faço para que ao seja pressionada as teclas Ctrl + N um procedimento seja disparado?
Raserafim
Curtidas 0
Respostas
Vinicius2k
20/01/2006
Colega,
Ajuste a propriedade [b:24837d6e86]KeyPreview[/b:24837d6e86] do Form para [b:24837d6e86]True[/b:24837d6e86] e trabalhe o evento OnKeyDown do Form:
Onde 78 é o código da tecla ´N´.
Dica: quando não souber o código de uma tecla, utilize neste evento algo como:
T+
Ajuste a propriedade [b:24837d6e86]KeyPreview[/b:24837d6e86] do Form para [b:24837d6e86]True[/b:24837d6e86] e trabalhe o evento OnKeyDown do Form:
procedure SeuForm.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Shift = [ssCtrl]) and (Key = 78) then
ShowMessage(´Você pressionou CTRL + N´);
end;Onde 78 é o código da tecla ´N´.
Dica: quando não souber o código de uma tecla, utilize neste evento algo como:
ShowMessage(IntToStr(Key));
T+
GOSTEI 0
Raserafim
20/01/2006
já setei o KeyPreview para true mas não deu certo
GOSTEI 0
Aroldo Zanela
20/01/2006
Colega,
Reveja seu código e em qual manipulador de evento está inserido o código postado pelo 2k, pois está correto.
Reveja seu código e em qual manipulador de evento está inserido o código postado pelo 2k, pois está correto.
GOSTEI 0