TStyleManager + Hotkey

[UliBru]

Danke für den Tip, es klappt aber nicht.
Leider hilft es nicht einfach vorher UnRegisterHotkey und danach wieder RegisterHotkey auszuführen.

Und an das Patchen von z.B. (oder ähnlich Verantwortlichem)

Delphi-Quellcode:

procedure TFormStyleHook.CMDialogChar(var Message: TWMKey);
begin
  if (FMainMenuBarHook <> nil) and
     (KeyDataToShiftState(Message.KeyData) = [ssAlt]) and
     FMainMenuBarHook.CheckHotKeyItem(Message.CharCode) then
  begin
    Message.Result := 1;
    Handled := True;
  end;
end;

in VCL.Themes trau ich mich ran, dafür bin ich zu unerfahren.



Grüsse
Uli