So funktioniert das bei mir. Vielleicht kannst du damit was tun
Delphi-Quellcode:
var
iItem:TActionClientItem;
iAction:TAction;
begin
iAction := TAction.Create(_Dein_ActionManager); //Hier wird die Action für das Item erstellt
iItem := _Dein_ActionManager.ActionBars[0].Items[7].Items[itemI].Items.add; // wird im menü untergebracht
iAction.Caption := 'blub';//Hier wird dem Item die Eigenschaft Caption zugewiesen.
iItem.Action := iAction; //Hier wird dem Item seine Action zugewiesen.
iAction.OnExecute := FunktionExecute;
end;
procedure TForm1.FunktionExecute(Sender : TObject);
begin
//mach was
end;
Falls das nicht hilft?
Der Beitrag hat mir dabei geholfen:
Hier