Habe jetzt
Delphi-Quellcode:
procedure THotKey.CreateWnd;
begin
inherited CreateWnd;
iHotKeyID := GlobalAddAtom(PChar(sName));
RegisterHotKey(self.handle, iHotKeyID, MOD_CONTROL, Ord(sKey[1]));
end;
eingefügt mit einem override hinter der Methodendeklaration:
procedure CreateWnd; override;
Trotzdem funzt es nicht. Habe die Codezeilen mit Haltepunkten versehen, aber die werden ignoriert.