Delphi - Utilizzando le TApplicationEvents evento OnShortCut per rilevare Alt + C tasti premuti
Domanda
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'?
Soluzione
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.
Altri suggerimenti
In alternativa, è possibile creare semplici dell'aderenza in marcia, si mangia i collegamenti prima di altri.
Autorizzato sotto: CC-BY-SA insieme a attribuzione
Non affiliato a StackOverflow