eigentümer ermitteln [erledigt]

[kiar]

ausgangslage : ich habe ein popupmenu, welches ich mit zwei komponenten nutzen will.

frage: wie kriege ich heraus, von welcher komponente aus das popupmenu ausgelöst wurde.


raik

[Hansa]

ungefähr so, wie das hier:

http://www.delphipraxis.net/internal...ct.php?t=19435

Bei mir wars so, daß ich mehrere Buttons/Panele/Labels hatte und hiervon die Captions in einem Memo gebraucht habe, bzw. das Onclick auswerten mußte.

[sakura]

Oder einfacher so:

Delphi-Quellcode:

procedure TForm1.gfgdggdfgf1Click(Sender: TObject);
begin
  (Sender as TPopupMenu).PopupComponent...
end;

......

[kiar]

hallo hansa,

leider liegt mein problem ein wenig anders

Delphi-Quellcode:

procedure frmMain.mypopupclick(sender :Tobject);

begin
  with sender as Tmenuitem do
       stringgrid1.cells[cols,rows]:= caption;// auslösung  über stringgrid
  end;

  with sender as TMenuitem do
       edit1.text:=caption;                   // auslösung über dem panel
  end;
end;

jetzt muss ich herausfinden von welcher komponente das ereignis ausging.

raik

[sakura]

Siehe mein Beitrag

......

[kiar]

war schon spät. ein blick in die oh hätte mich viel schneller ins bett gebracht.

danke Raik