Problem mit ActionMainMenuBar und Bildchen

[fylo]

hi

Danke für den tip. Jetzt funktionierts

Ich hab noch folgende Zeile eingefügt:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var myAction:Taction;
    myActionItem:TActionClientItem;
begin
  myAction:=TAction.Create(Form1);
  myAction.Caption:='caption';
  myAction.Name:='action_123';
  myAction.OnExecute:=MyActionExecute;
  myAction.ActionList:=ActionManager1;   // <<< diese Zeile ist neu!!!
  myAction.ImageIndex:=1;           // <<< hier steckt irgendwie das Problem
  myActionItem:=ActionManager1.ActionBars[0].Items[1].Items.Add;
  myActionItem.Action:=myAction;
end;