ActionMainMenuBar->dynamisch erzeugte Menüeinträge

[minimops]

Hallo,

ich komme nicht auf die (vermutlich) einfache Lösung: :wall: Ich hänge in Menüs dynamisch Untereinträge:

Delphi-Quellcode:

procedure TFRM_Main.CreateMenuAddOns;
var i     : integer;
    CPItem,
    Item : TActionClientItem;
begin
  CPItem:=ActionManager.ActionBars[0].Items[2].Items[0].Items.Add;
  CPItem.Caption:='ComPort';
  for i:=0 to 6 do begin
    ScaleComPortActions[i]:=TAction.Create(self);
    ScaleComPortActions[i].Caption:='ComPort '+IntToStr(i);
    ScaleComPortActions[i].Tag:=i-1;
    ScaleComPortActions[i].Enabled:=true;
    ScaleComPortActions[i].OnExecute:=ACT_ScaleComportExecute;
    Item:=CPItem.Items.Add;
    Item.Action:=ScaleComPortActions[i];
  end;
  ScaleComPortActions[0].Caption:='Keine Waage angeschlossen';
  ScaleComPortActions[0].Checked:=True;
end;

Ich finde das Konstrukt ActionManager.ActionBars[0].Items[2].Items[0].Items.Add schlecht.
Was ist, wenn ich die Menüs ändere? Ich muss ständig auf die Nummerierung achten.
Kann man Menüeinträge (in diesem Fall Menu->Geräte->Waage) auch symbolisch ansprechen? Also wie in den alten TMenuItems...

Vielen Dank,
Axel

[Nils_13]

Diese Frage stelle ich mir auch schon die ganze Zeit.