Popup Menu - Untereinträge hinzufügen und löschen

[Natalia]

Hi Leute,

ich möchte zu einem PopupMenu die Untereinträge dynamisch hinzufügen und dann wieder löschen.

Mit dem Hinzufügen klappt's:

Delphi-Quellcode:

   var NewItem : TMenuItem;
   
   for i:=0 to Query1.RecordCount-1 do
    begin
    NewItem := TMenuItem.Create(Self);
    NewItem.Caption:=Query1Feld1.AsString;
    MenuItem1.Add(NewItem);
    Query1.Next;
    end;

Aber wenn ich die Untereiträge mit z. B. diesem Code lösche:

Delphi-Quellcode:

for i:=0 to Query1.Count-1 do
   begin
    MenuItem1.Items[i].Clear;
    NewItem.Free;
    end;

bekomme ich eine Fehlermeldung "Menu außerhalb des zulässigen Bereichs".
Ich habe schon auch die andere Möglichkeiten ausprobiert. Vielleicht ist es einfach, aber ich komme nicht drauf.

Danke schon mal für alle Vorschläge!

[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]

[Alexander]

Das sollte alle Items aus einem Untermenu (oder Hauptmenu) löschen:

Delphi-Quellcode:

    while SubMenu.Count > 1 do
     begin
      SubMenu.Items[SubMenu.Count-1].Free;
     end;

Hoffe das hilft

[Natalia]

Super, es funktioniert!

Ich habe nur geändert -> SubMenu.Count > 0.

Vielen Dank!

[st2000]

Hallo,

ich baue auch dynamische PopUps. Aber ich benutze dafür TActions. Und dort ist auch die enabled-Eigenschaft gespeichert.
Stehen alle auf enabled=true, aber bleiben grau !

Auch dann, wenn ich entweder

-explizit die menuitem.enabled:=true setze, oder
-TAction.enabled:=true setze

Es will einfach nicht enablen !

Weiss jemand, wie man das hinkriegt ?

GRuss,
ST2000

[st2000]

Hallo, Alarm zurück, habs gefunden.

Lag nur daran, daß ich erstmal keine Eventhandler programmiert hatte.
Das veranlasst die TActions -ohne daß dies in der Hilfe dokumentiert wäre, oder einen Hint auslösen würde, grrrrr -
dazu, trotz enabled=true-setting keinen Mucks zu "sagen"....

Gruss,
ST2000