Hi,
es gibt einige Lösungen. Die einfachste ist über den Name, welcher ja in TComponent schon existiert.
Delphi-Quellcode:
procedure TForm1.Clickmich1Click(Sender: TObject);
Var
AName: String;
begin
AName := PopupMenu1.PopupComponent.Name;
ShowMessage(AName);
// zerlege den Name
end;
Cu, Frank