Delphi - Mit dem TApplicationEvents OnShortCut Ereignisse Alt + C-Taste drückt erkennen
Frage
Ich bin TApplicationEvents OnShortCut Ereignis mit Anwendung Tastatur Abkürzungen in einem Delphi-Programm zu erhalten.
Mit dem folgenden Code:
procedure TForm1.ApplicationEvents1ShortCut(var Msg: TWMKey; var Handled: Boolean) ;
begin
if (Msg.CharCode = VK_F9) then
begin
ShowMessage('F9 pressed!') ;
Handled := True;
end;
end;
Frage:
Wie kann ich erkennen, wenn 'ALT C' gedrückt wurde?
Lösung
Wie so:
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;
Bitte beachten Sie, dass Alt mit und einige Schlüssel ist nur eine schlechte Wahl für eine Verknüpfung, da das System verwendet diese Menüpunkte oder Dialogfeld-Steuerelemente zu aktivieren.
Andere Tipps
Oder Sie können einfach TAction erstellen, sie isst Verknüpfungen vor anderen.
Lizenziert unter: CC-BY-SA mit Zuschreibung
Nicht verbunden mit StackOverflow