Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Algorithmen, Datenstrukturen und Klassendesign (https://www.delphipraxis.net/78-algorithmen-datenstrukturen-und-klassendesign/)
-   -   Delphi PopupMenu > SubItem > SubItem selbst erstellen (https://www.delphipraxis.net/167035-popupmenu-subitem-subitem-selbst-erstellen.html)

MiKaEr 10. Mär 2012 12:20

PopupMenu > SubItem > SubItem selbst erstellen
 
hallo,

ich versuche gerade einem bestehenden PopupMenu ein dynamisch erzeugtes Item zuzuweisen. das klappt auch super. diesem item möchte ich AUCH ein subitem zuweisen.
beide items haben ein OnClick-Event. wenn ich nun das PopupMenu angezeigt bekomme und mit der baus über das erste SubItem fahre, wird automatisch das OnClick-Event des ersten SubItems ausgelöst. woran kann das liegen? denn eigentlich sollte das 2. SubItem angezeigt werden.

Delphi-Quellcode:
           erstessubitem:= TMenuItem.Create(Form1);
           erstessubitem.Name := 'subitem' + IntToStr(i);
           erstessubitem.Tag := i;
           erstessubitem.Caption := 'Test ' + IntToStr(i);
           erstessubitem.OnClick := erstessubitemClick;

           zweitessubitem := TMenuItem.Create(Form1);
           zweitessubitem.Name := erstessubitem.Name + 'sub';
           zweitessubitem.Tag := erstessubitem.Tag;
           zweitessubitem.Caption := 'Testsub ' + IntToStr(i);;
           zweitessubitem.OnClick := zweitessubitemClick;
           erstessubitem.Add(zweitessubitem);

           PopupMenu1.Add(erstessubitem);

ibp 10. Mär 2012 12:24

AW: PopupMenu > SubItem > SubItem selbst erstellen
 
lass doch mal das onclick des ersten weg.


Alle Zeitangaben in WEZ +1. Es ist jetzt 11:26 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz