Delphi - Utilizzando le TApplicationEvents evento OnShortCut per rilevare Alt + C tasti premuti

Question

Sono utilizzando TApplicationEvents evento OnShortCut per ottenere tastiera applicazione scorciatoie in un programma di Delphi.

utilizzando il seguente codice:

procedure TForm1.ApplicationEvents1ShortCut(var Msg: TWMKey; var Handled: Boolean) ;
begin
   if (Msg.CharCode = VK_F9) then
   begin
     ShowMessage('F9 pressed!') ;
     Handled := True;
   end;
end;

Domanda:

Come faccio a rilevare quando è stato premuto 'ALT C'?

Answer 1

In questo modo:

procedure TForm1.ApplicationEvents1ShortCut(var Msg: TWMKey;
  var Handled: Boolean);
begin
  if (Msg.CharCode = Ord('C'))
    and (HiWord(Msg.KeyData) and KF_ALTDOWN <> 0)
  then begin
    ShowMessage('Alt+C pressed!') ;
    Handled := TRUE;
  end;
end;

Si noti che usando Alt e qualche chiave è solo una cattiva scelta per una scorciatoia, come il sistema utilizza questi per attivare le voci di menu o controlli di dialogo.

Answer 2

In alternativa, è possibile creare semplici dell'aderenza in marcia, si mangia i collegamenti prima di altri.