Hangi bileşen tıklandı

[Aktolgali]

Merhaba;
Arkadaşlar, ajanda ve randevu içeren bir program yapmaya çalışıyorum. Saatleri temsil eden 30adet panelim var. Bu panellere ters tıklayarak çıkacak menüden işlem yaptırmak istiyorum fakat hangi panele ters tıkladığımı bulamıyorum. Yardımcı olursanız sevinirim.
İyi akşamlar.

[mcuyan]

Yerinizde olsam her panele bir TAG değeri atarım. Sonrası çok kolay:

Gönderen nesneyi bulmak için:
TPAnel(Sender) Sizin çözüm noktanız.

[Aktolgali]

(07-08-2022, Saat: 23:49)mcuyan Adlı Kullanıcıdan Alıntı: Yerinizde olsam her panele bir TAG değeri atarım. Sonrası çok kolay:

Gönderen nesneyi bulmak için:
TPAnel(Sender) Sizin çözüm noktanız.

@mcuyan hocam

case tpanel(FindComponent('panel'+inttostr(a))).tag of
     1:ShowMessage('1inci panel');
     2:ShowMessage('2inci panel');
     3:ShowMessage('3üncü panel');
   end;

sizin dediğiniz ve yukarıdaki kod da dahil dahil birçok yol denedim. Eksik yaptığım birşey var ama ne?

[mcuyan]

Hocam panelin tıklama olayından yola çıkmanız gerekiyor. Algoritmayı şöyle canlandırın:
Panele tıklandığında (OnClick) Bir prosedür çalışacak ve orada senderi kullanacaksınız.. Sizin FindComponent ile bi işiniz yokki?

---

Benim uygulamam da hızlı satış ekranım var; Tab menüm de 11 sayfa ve her sayfa da 24 buton mevcut; Form her create edildiğinde o butonların TAG değerlerini, ilgili tablodan id bilgisini yüklüyorum. Ve her butonun Onclick olayında:

procedure TFormSat.b101Click(Sender: TObject);
begin
GonderenID := TcxButton(Sender).TAG;
HizliEkranIslem;
end;

İşlemini yaptırıyorum. GonderenID de Butonda ki ID bilgisi var. HizliEkranIslem Prosedüründe ise yapmak istediğim işleri GonderenID bilgisine göre yaptırıyorum.

Yaptığım iş belki uzun yöntem olabilir, Hatta sitedeki üstadların illaki daha iyi&Stabil bir yöntemi dahi vardır ama benim o zaman ilk yaptığım ve başarıya ulaşan yöntemim böyleydi

---

TAG işinize yaramaz ise ShowHint'i False yapıp; Hint degeriyle de işleminizi yaptırabilirsiniz..

[ugorkem]

DBCtrlGrid kullanmayı bir deneyin. Panel ile uğraşmak zorunda kalmadan, ürün verilerini Db üzerinde tutuyorsan table ile kullanabilirsin yada virtualTable a istediğim kadar ekleme yaparak panelin otomatik oluşturulmasını sağlayabilirsin.
Not: ColCount ile sütün sayısını ayarlayabilirsiniz. Üzerine VCL bileşenler koyabilirsin

[cinarbil]

(07-08-2022, Saat: 23:57)Aktolgali Adlı Kullanıcıdan Alıntı:

(07-08-2022, Saat: 23:49)mcuyan Adlı Kullanıcıdan Alıntı: Yerinizde olsam her panele bir TAG değeri atarım. Sonrası çok kolay:

Gönderen nesneyi bulmak için:
TPAnel(Sender) Sizin çözüm noktanız.

@mcuyan hocam

case tpanel(FindComponent('panel'+inttostr(a))).tag of
     1:ShowMessage('1inci panel');
     2:ShowMessage('2inci panel');
     3:ShowMessage('3üncü panel');
   end;

sizin dediğiniz ve yukarıdaki kod da dahil dahil birçok yol denedim. Eksik yaptığım birşey var ama ne?

İyi günler;
Panel kullanmak zorun iseniz her panelin Onenter olayına ihtiyacınız olan kodları yazın

[QuAdR]

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.

[SimaWB]

https://stackoverflow.com/questions/2505...60#2505960

[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.