Fun��o gen�rica para teclas de atalho

Question

Pessoal,Gostaria de saber como fa�o para criar uma fun��o gen�rica para minhas teclas de atalho...[code]procedure onKeyDown(Sender : TObject; var Key: Word; Shift: TShiftState);beginend;&#91;code&93;o...

Lauro.balceiro · Answer

O que quero � basicamente criar uma UNIT que ter� um m�todo com essa assinatura:

procedure teclasDeAtalho(frm : TForm; Sender : TObject; var Key: Word; Shift: TShiftState); 
begin 
//aqui deve chamar uma procedure do form passado como parametro
end;

no evento onKeyDown do meu Form e chamaria essa fun��o teclasDeAtalho passando os parametros necess�rios e teclas de atalho por sua vez chamaria uma determinada procedure do form passado como parametro.

Lauro.balceiro · Answer

e ai pessoal, ser� que n�o tem como fazer isso?...

Woinch · Answer

O que faltou foi ser mais detalhista e menos impaciente.

Deixa eu ver se entendi:

 
procedure TForm1.FormKeyDown(Sender : TObject; var Key: Word; Shift: TShiftState); 
begin
   teclasDeAtalho(Self, Sender, Key, Shift); 
end; 

procedure teclasDeAtalho(frm : TForm; Sender : TObject; var Key: Word; Shift: TShiftState); 
begin 
  //se pressionar ctrl + c chama EventoQueQueroChamar do form em que foi apertado a tecla ctrl + c
  if ((ssCtrl in Shift) and
      (Key = Ord(�C�))) then
    frm.EventoQueQuerChamar;

end;

Era isso?
PS: N�o esque�a de ativar a propriedade KeyPreview de todos os Forms.

Qualquer d�vida favor postar.

F�rum Fun��o gen�rica para teclas de atalho #370370