Jelas gak ada hasil, karena waktu kita klik di item popup, yang jadi sender adalah
item popup menunya:
Coba jalankan kode ini di salah satu item popup menu (onclick):
if (sender is TPopupMenu) then
showmessage('popu menu');
if (sender is TLabel) then
showmessage('label');
if (sender is TMenuItem) then
showmessage('popu menu Item');
Yang akan muncul adalah pesan yang ketiga.
Yang benar, anda harus memroses event onmousedown pada kedua label (karena prosedurnya
sama, pilih kedua label, dengan SHIFT+CLICK, lalu pada object inspector, klik dua kali
di event onMouseDown, jadi kedua label mengacu ke prosedur yang sama). Ingat, kedua
label juga harus punya popup menu yang sama
Prosedurnya:
procedure TForm1.Label2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button=mbright then
begin
if sender=label2 then
begin
(sender as tlabel).PopupMenu.Items[0].Caption:='Dari label2';
(sender as tlabel).PopupMenu.Popup(left+label2.Left,top+label2.Top);
end;
if sender=label1 then
begin
(sender as tlabel).PopupMenu.Items[0].Caption:='Dari label1';
(sender as tlabel).PopupMenu.Popup(left+label2.Left,top+label2.Top);
end;
end;
end;
----- Original Message -----
From: Irwan
To: [EMAIL PROTECTED]
Sent: Sunday, November 09, 2003 11:21 PM
Subject: [Delphindo] Sender & popup menu
Hello Delphindo,
saya punya 2 label, lblA dan lblB
kedua label tsb menggunakan popup menu yg sama
bagaimana menentukan bahwa popup menu diaktifkan oleh lblA atau lblB?
saya udah pake sender, kok gak bisa, ya?
saya udah coba di event OnClick-nya item popup menu & OnPopUp si popup menu.
if Sender = lblA then
form1.caption := 'lblA'
else if Sender = lblB then
form1.caption := 'lblB';
gak ada hasil
--
Best regards,
Irwan
[EMAIL PROTECTED]
Yahoo! Groups Sponsor
ADVERTISEMENT
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
[Non-text portions of this message have been removed]
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Buy Ink Cartridges or Refill Kits for your HP, Epson, Canon or Lexmark
Printer at MyInks.com. Free s/h on orders $50 or more to the US & Canada.
http://www.c1tracking.com/l.asp?cid=5511
http://us.click.yahoo.com/mOAaAA/3exGAA/qnsNAA/i7folB/TM
---------------------------------------------------------------------~->
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
