ActionMainMenuBar + OnExecute wird nicht ausgeführt

[Lun]

Fehler in der Matrix, keine Ahnung... Habe das eben noch mal in einem
neuen Projekt gemacht und hat sofort funktioniert.
Bin ratlos, oder dein Delphi spinnt, oder wir vergessen eine Kleinigkeit, die Du nicht gemacht hast.

Am besten machst Du zum testen das nochmal in einem neuen Project, und guckst mal ob das da funtzt.


Ich hätte da auch noch eine Frage, cats hoffe du bist mir nicht böse das ich dein topic dafü benutze:

Delphi-Quellcode:

for i := 0 to Liste.Count-1 do begin
    iItem := _DFB_ActionManager.ActionBars[0].Items[7].Items[itemI].Items.add; //Und hier wird das Item zu dem Menü mit Index 0 geaddet.
    iAction.Caption := Liste.Strings[i]; //Hier wird dem Item die Eigenschaft Caption zugewiesen.
    iItem.Action := iAction; //Hier wird dem Item seine Action zugewiesen.
    iAction.OnExecute := Execute;
  end;

Ich generiere dynamisch einen Menüpunkt in der ActionMainMenubar. Das Problem was ich habe das alle geaddeten Items
die gleiche Caption haben. Ist auch logisch weil die Caption ist der Name des letzten Elements. Da ich der Action Caption
den Namen zuweise. Kann ich nicht jedem erzeugten Item eine eigene Caption geben?

iItem.Caption := Liste.Strings[i]; funktioniert nicht ;o(

Eine Möglichkeit wäre für jedes item eine neue Action zu erzeugen aber das wäre quatsch, da alle das gleiche tun.
Hat jemand eine ahnung?

greetz Lun

[-=cats=-]

Ok, stempeln wir es für`s erste als
Fehler in der Matrix ab

Werde mich nochmal genauer damit befassen
und sollte ich zu einem Ergebnis kommen,
werde ich es posten

Aber vielen Dank für Deine Bemühungen !!!
Und die Hilfe


Gruß,
-=cats=-

[Lun]

Habs raus, für alle die mal das gleiche Problem haben.

Die Reihenfolge macht es aus:

Delphi-Quellcode:

for i := 0 to Liste.Count-1 do begin
    iItem := _DFB_ActionManager.ActionBars[0].Items[7].Items[itemI].Items.add; //Und hier wird das Item zu dem Menü mit Index 0 geaddet.
    iItem.Action := iAction;
    iItem.Caption := Liste.Strings[i]; //Hier wird dem Item die Eigenschaft Caption zugewiesen.

 end;
  iAction.OnExecute := lesezeichenExecute;

greetz Lun