Action gleichzeitig bei PopupMenu und MainMenu

[alcaeus]

Ich verwende in meiner Anwendung ein Menü, in dem es eine Option "Kundendaten ansehen" gibt. Dasselbe gibt es in einem Popupmenü, das an eine TListView gehängt ist. Beide MenuItems referenzieren die gleiche Action. Frage: Wie kann ich herausfinden, von welchem Menü (MainMenu oder PopupMenu) die Action gestartet wurde? Die Name-Eigenschaft des Sender-Parameters gibt mir nur den Namen der Action zurück

[himitsu]

Delphi-Quellcode:

Procedure OnClick...(Sender: TObjekt);
Begin
  If Sender = MainMenu1Item Then {vom Memü} Else {das andere}

  If Sender = PopupMenu1Item Then {ebenfalls das Andere}
End;

[alcaeus]

Ich zitiere mich mal selbst:

Zitat:

Zitat von alcaeus

Beide MenuItems referenzieren die gleiche Action.

Das sollte bedeuten dass beide MenuItems im Endeffekt die gleiche Routine aufrufen. Daher kommt ja auch das Problem, da ich wissen muss ob das ganze von der ListView oder vom MainMenu gestartet wurde, und ich will meinen Code nicht unnötig lang machen, indem ich noch OnClick-Routinen hinzufüge

[himitsu]

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;

[alcaeus]

Ok, danke, ich werde mir mal deinen Lösungsweg merken, aber wenn jemand eine andere Methode OHNE zusätzliche OnClick-Handler kennt, wäre ich sehr dankbar, ich verliere jetzt schon fast den Überblick...