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]