Aufrufer eines PopUp-Menüs ermitteln

[hans ditter]

Moin an alle!

Ich habe auf einer Form zwei Filelistboxes. An beide Listboxen ist dieselbe PopUp-Komponente angebunden, die einen einzige Eintrag enthält: löschen (Name im OI: Lschen1).
Ich muss nun im OnClick von Lschen1 erfahren, welche dieser beiden Filelistboxen das PopUp-Menü aufgerufen hat.
Allerdings scheint der Sender Parameter nicht zu enthalten, welche Listbox selbiges Event aufgerufen hat. Somit stellt sich für mich die Frage, wie ich an die aufrufende Filelistbox herankomme.

Ich hab schon probiert den Sender-Parameter der PopUp-Komponente im Event OnPopup in eine Variable zu speichern und diese dann später wieder zu verwenden. Da teilt mir Delphi allerdings eine Zugriffsverletzung mit...

Bräuchte dringend Hilfe von euch!

LG; hans ditter

[Peter1999]

Das Popupmenu kennt seinen "Auslöser":

Delphi-Quellcode:

procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
  ShowMessage(TPopupMenu(sender).PopupComponent.Name);
end;

[hans ditter]

Hm...
also entweder versteh ich dich nicht oder ich hab das Problem nicht genau genug erklärt.

Nochmal: ich habe 2 Listboxen (list1 und list2). Dann hab ich noch eine TPopupMenu Komponente. Diese beinhaltet das TMenuItem 'Lschen1'. Lschen1 reagiert auf sein OnClick-Event. Die Popup-Komponente ist an beide Listboxen "rangehängt".

Ich möchte im OnClick von Lschen1 nun erfahren, welche der beiden Listboxen das Popup-Menü aufgerufen haben.

Hoffentlich ist jetzt verständlicher oder ich bekomm das nochmal erklärt...

Vielen Dank und LG; hans ditter

[DeddyH]

Und dafür gibt es PopupComponent, das war doch richtig gesagt.

[stahli]

als Beispiel:

Delphi-Quellcode:

procedure TdmlOlympic.MIGamePaperClick(Sender: TObject);
var
  PanelGame: TodPanelGame;
begin
  if PopupMenuGame.PopupComponent is TodPanelGame then
  begin
    PanelGame := PopupMenuGame.PopupComponent as TodPanelGame;
    PanelGame.TuWas;
  end;
end;

[sx2008]

Man kann auch anhand des Sender-Objekt das Popupmenü ermitteln und dann weiter zur PopupComponent gehen:

Delphi-Quellcode:

procedure TForm1.Lschen1Click(Sender: TObject);
var 
  c : TComponent;
  lb : TListbox;
begin
  c :=((Sender as TMenuItem).GetParentMenu as TPopupMenu).PopupComponent;
  
  lb := c as TListbox;
  // lb enthält jetzt die Listbox, deren Popupmenue aufgerufen wurde

[hans ditter]

@sx2008: dein Code sieht schon echt gut aus... allerdings schmeisst mir Delphi jetzt den Fehler "ungültige Typumwandlung" entgegen in der Zeile mit 'c:=...' ...

LG; hans ditter

[mkinzler]

Was für einen Typ hat den Sender?

[hans ditter]

hm... ich denke mal TPopupMenu... insofern dürfte der Cast nicht funktionieren. Vielleicht müsste das eher so sein?
lb := (c as TPopupMenu).PopupComponent;

[shmia]

Zitat von hans ditter:

... ich denke mal TPopupMenu...

Nicht "denken", sondern prüfen
ShowMessage(Sender.Classname);