Thema
:
Delphi
Untermenü zur Laufzeit erzeugen
Einzelnen Beitrag anzeigen
Aike
Registriert seit: 2. Okt 2004
319 Beiträge
#
11
Re: Untermenü zur Laufzeit erzeugen
2. Jan 2005, 12:38
Ich habe es dann
so
gelöst:
zusammenfalten
·
markieren
Delphi-Quellcode:
for
i:=0
to
StringListe.Count-1
do
begin
NeuesMenuItem := TMenuItem.Create(self);
Inc(ItemCount);
NeuesMenuItem.
Name
:= '
Komponente_
'+IntToStr(i);
NeuesMenuItem.Caption := StringListe.Strings[i];
PopUpUnterMenue.Add(NeuesMenuItem);
NeuesMenuItem.Tag:=ItemCount;
NeuesMenuItem.OnClick:=PopupItemClick;
end
;
Achim
Zitat
Aike
Öffentliches Profil ansehen
Besuche die Homepage von Aike!
Mehr Beiträge von Aike finden