Ja, hatte es erst falsch verschtanden.
siehe oben, oder so:
Delphi-Quellcode:
Procedure TForm1.gfdgfd1Click(Sender: TObject);
Begin
If TMenuItem(Sender).Parent is TMainMenu Then ...
End;
[EDIT]
Notfalls moßt do noch ein paar Ebenen höher gehen (wenn es sich z.B. um ein Untermenü in einem Untermenü handelt)
Delphi-Quellcode:
Procedure TForm1.gfdgfd1Click(Sender: TObject);
Begin
If TMenuItem(Sender).Parent.Parent... is TMainMenu Then ...
End;
Oder du gibst einfach der Eigenschaft Tag der MenuItem's im Menü einen anderen Wert, als denen im PopupMenü
Delphi-Quellcode:
Procedure TForm1.gfdgfd1Click(Sender: TObject);
Begin
If Sender.Tag = 1 Then ...
End;