ActionList zur Laufzeit erstellen/füllen

[sir-archimedes]

Hallo,

ich möchte gerne eine ActionList zur Laufzeit erstellen und mit Actions befüllen - das klappt aber nicht.

Es gibt zwar eine Methode AddAction - die ist allerdings protected. Wenn ich nun folgendermaßen erstelle:

Delphi-Quellcode:

  with TAction.Create(TModuleLoginService.Instance.ActionList) do
    begin
      Caption := '&Login';
      Name := 'ActnLogin';
      OnExecute := TModuleLoginService.Instance.ActnLoginOnExecute;
    end;

wird sie leider nicht in die Actionlist eingefügt.

Wie kann ich das machen - irgendwie wird es doch gehen...
Achja: in der .dfm-Datei ist für die Erzeugung von ActionLists folgendes enthalten:

Delphi-Quellcode:

  object ActionListMainMenu: TActionList
    Left = 192
    Top = 32
    object actExit: TAction
      Caption = '&Beenden'
      OnExecute = actExitExecute
    end
  end

Daher dachte ich, es wäre evtl. möglich, einfach wie oben die Action dort einzufügen. Das geht nur nicht Kann da evtl. jemand helfen?

Gruß,

[sir-archimedes]

Manchmal sieht man vor lauter Bäumen den Wald nicht mehr...

Die Lösung ist ganz einfach: TAction hat eine Eigenschaft ActionList. Setzt man diese, dann wird die Action in die entsprechende ActionList eingefügt.

Gruß,
Dominik