Hallo,
ich suche nach einer Möglichkeit, ein Submenu zu einem Menüpunkt im Mainmenu1 zur Laufzeit anzulegen. Die Einträge in dem Submenu sollen bei Click auf dem entsprechenden Mainmenüeintrag aus einer Stringliste eingelesen werden. Wenn erneut auf den Mainmenüeintrag geclickt wird, muss das Submenu zunächst gelöscht und dann wieder neu aufgebaut werden, da sich die Anzahl der Stringlisteneinträge geändert haben kann.
Wenn ich im Menudesigner an dem entsprechenden Eintrag ein Submanu erzeuge und die Click-Ereignisprozedur mit dem folgenden Code fülle, erscheint die Liste mit den Einträgen in der dritten Ebene (Mainmenu -> Submenu -> Liste) aber nicht direkt im Submenu. Dieses trägt den Namen Gruppenliste. g_gruppenzahl ist die Anzahl der Einträge in der G_gruppenliste.
Beim erneuten Click auf den Eintrag im Mainmenu habe ich dann die Liste doppelt, dreifach usw.
Delphi-Quellcode:
procedure TStartfenster.Gruppeffnen1Click(Sender: TObject);
var Gruppe : TMenuItem;
zaehler : Integer;
begin
for zaehler := 0 to g_gruppenzahl - 1 do
begin
Gruppe := TMenuItem.Create (self);
gruppe.Caption := g_gruppenliste [zaehler];
Gruppenliste.Add (gruppe);
end;
end;
Was mache ich da falsch?
Danke
Günther Käberich
[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]