Action zur Laufzeit mit Shortcut versehen

[Sharky]

Hai dominik.boehm,

ist jezt ungetestet. Aber musst Du der Eigenschaft .ShortCut nicht über die Function ShortCur etwas zuweisen?

Delphi-Quellcode:

  InternalActionList := TActionList.Create(NIL);
  InternalActionList.Name := 'InternalActionList';
  with TAction.Create(InternalActionList) do
    begin
      ShortCut := ShortCut(VK_F5, []);
      ActionList := InternalActionList;
      Name := 'actRefreshData';
      Caption := 'Daten Refreshen';
      OnExecute := RefreshDataOnExecute;
    end;