Submenu zur Laufzeit anlegen

[gkaeberich]

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]

[Luckie]

Das hatten wird doch gerade erst. Benutzt mal die Suche. Ich habe dazu sogar ein komplettes Beispiel geschrieben.

[gkaeberich]

Hallo Luckie,

vielen Dank für Deinen Tip. Ich habe auch den beschreibenen Quelltext gefunden.

Ich habe noch folgende Probleme:

1. Wenn ich im Menudesigner bei dem entsprechenden Menupunkt aus dem Mainmenu kein Submenu anlege, funktioniert es überhaupt nicht. Lege ich ein Submenu an und gebe diesem einen Namen, dann erscheint auch die gewünschte Liste, aber der erste Menueintrag ist ein leeres Feld. Woran liegt das ?

2. Wie kann ich das Submenu, bevor es gefüllt wird wieder leeren, da sonst bei jedem Click auf dem Mainmenupunkt sich die Liste entsprechend verlängert ?



Danke

Günther

[p0w3r5tr34m3r]

also ich würde sagen das du da etwas mit inifiles oder registry versuchst,
und bei jedem öffnen die werte ausliest. ist vielleicht ein bisschen umständlich
aber erfüllt seinen zweck

MfG Powerstreamer

[gkaeberich]

Hallo,

ich schaffe es jetzt, das beim erstmaligen Click auf das Mainmenu das Submenu ordentlich aufgebaut wird (ohne leere Zeilen) aber wenn ich dann ein zweites Mal auf den Menupunkt clicke wird das Submenu um die gleichen Einträge erweitert und das passiert immer wieder. Wie kann ich das Submenu wieder entfernen ?


Günther