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);