AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Submenu zur Laufzeit anlegen

Ein Thema von gkaeberich · begonnen am 5. Jul 2004 · letzter Beitrag vom 5. Jul 2004
 
gkaeberich

Registriert seit: 21. Mai 2003
Ort: Friedrichsdorf
59 Beiträge
 
Delphi 6 Professional
 
#1

Submenu zur Laufzeit anlegen

  Alt 5. Jul 2004, 08:38
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]
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:00 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz