Hangi bileşen tıklandı

[Aktolgali]

(08-08-2022, Saat: 21:14)SimaWB Adlı Kullanıcıdan Alıntı: https://stackoverflow.com/questions/2505...60#2505960

@SimaWB hocam aslında tam olarak aradığım kodun bu olduğuna eminim ama ispatlayamıyorum 

Mesela 't monframe' nedir bilmiyorum.

---

(08-08-2022, Saat: 11:54)QuAdR Adlı Kullanıcıdan Alıntı: Anladığım kadarı ile bir popup menün var hangi panel üzerinden bu menü açılıyor bulmak istiyorsun.
Ekli dosyada iki panel bir popupmenu var. Popup ı form çağırıyor, hangi panelde tıklandı ise menü iteme o panel ismim atanıyor.

@QuAdR hocam, tam olarak aradığım bu değil ama bu kod çok işime yaradı. Sizin gönderdiğiniz kodla @mcuyan hocamın önerdiği yolu birleştirip sonuç aldım. istediğim şeyi tam olarak yaptım. teşekkür ederim ikinize de.

Önce panelTag diye bir değişken tanımladım.

procedure TfMainForm.Panel23MouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
 case Button of
   mbRight: panelTag := TPanel(Sender).Tag;
 end;
end;

bu kod ile ters tıkladığım panelin tag'ını alıp o tag'a göre popupmenu de kullandım.

case panelTag of
       1:Showmessage('1 nolu panel');
       2:Showmessage('2 nolu panel');
       3:Showmessage('3 nolu panel');
     end;

Biraz dolambaçlı oldu ama işimi gördü.
Hepinize teşekkür ederim.