Problem mit PopupMenü

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