Muss mich leider doch noch mal melden.
Delphi-Quellcode:
procedure TfMain.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
var
Key : TShortCut;
begin
Key := {Menus.}ShortCut(Msg.CharCode, KeyDataToShiftState(Msg.KeyData));
if (Key = fPlayerSteuerung.HkP1Left.HotKey) then
begin
ShowMessage ('Gotcha!');
Handled := true;
end;
end;
1. Sagt er mir bei
Key := {Menus.}ShortCut(Msg.CharCode, KeyDataToShiftState(Msg.KeyData));
"undefinierter Bezeichner ShortCut" - und ich weiß auch nicht was diese Zeile machen soll ?!?
2. Tut er nichts. - Kein "Gotcha!"
Die Komponente HotKey liegt auf dem Form "fPlayerSteuerung", die ShortCut Prozedure ist auf der Form fMain.
fPlayerSteuerung ist einfach ein kleins Fensterchen, da ich die Eingabe der Hotkeys nicht auf die Hauptform legen wollte.