Tecla de atalho para toda a aplica��o?

Question

Como fa�o para colocar um tecla de atalho para toda a aplicacao idependente de qual janela eu esteja assim como um F1 para

Siam · Answer

Registre a tecla no Windows pela fun��o RegisterHotKey...

Zumbi · Answer

Poderia colocar como fazer isso?...

Siam · Answer

Vc pode registr�-la no onCreate do Form que vai receber a notifica��o:

procedure TForm1.FormCreate(Sender: TObject);
begin
  RegisterHotKey(Handle, 1, 0, VK_F1);
end;

Depois vc deve declarar uma procedure do tipo message p/ receber a notifica��o do Windows:

procedure Capture_Tecla(var Msg:TWMHotKey); message WM_HotKey;

Na implementa��o:

procedure TForm1.Capture_Tecla(var Msg:TWMHotKey);
begin
  if Msg.HotKey = 1 then
    // tecla f1 pressionada
end;

E pode liberar no onDestroy:

procedure TForm1.FormDestroy(Sender: TObject);
begin
  UnregisterHotKey(Handle, 1);
end;

Xtreme · Answer

Valeu cara era bem isso que eu queria! Obrigado pela ajuda!...

Firekiller · Answer

Pessoal, apenas aproveitando o t�pico, como eu faria para registrar, por exemplo CTRL+ALT+BACKSPACE ??...

Siam · Answer

[code:1:42e85a7346]  RegisterHotKey(Handle, 1, Mod_Control+Mod_Alt, $8);[/code:1:42e85a7346]...