Problem mit PopupMenü

[Metatron220]

Ich möchte gerne ein Programm schreiben, bei dem man in das PopupMenü Einträge einfügen kann, durch die Programme gestartet werden. Das Einfügen ist auch nicht das Problem. Aber wie finde ich heraus, welches MenuItem (am besten der Index davon) genau angeklickt wurde, dass ich weiß welches Programm ich ausführen muss?
Vielen Dank schon mal im Vorraus

[dahead]

dafür bietet sich die tag eigenschaft des TMenuItems an.

[marabu]

Hi,

du kannst die tag property des MenuItem als Diskriminator benutzen. Speicherst du dort eine Integer, dann kannst du damit im Ereignis OnCLick() eine case Anweisung steuern. Oder du hinterlegst einen Zeiger auf ein Objekt, welches alle notwendigen Informationen enthält.

Neujahrsgrüße vom marabu

[Metatron220]

Den MenuItems Tags zuzuweisen mache. Aber mein Problem ist immer noch wie ich dann in dem OnClick Ereignis herausfinde, von welchem MenuItem es genau ausgeführt wurde, da alle MenuItems auf das selbe Ereignis verweisen.

[dahead]

du kannst das so anstellen:

Delphi-Quellcode:

if Sender is TMenuItem then
 begin
  case (Sender as TMenuItem).Tag of
   0: RunTest((Sender as TMenuItem).Tag);
   1: ;
   2: ;
  end;
 end;

[Metatron220]

Vielen Dank für die gute Hilfe. Werds gleich mal ausprobieren :)