gunakan properti Tag, kasih nilai beda misalnya, atur properti Tag dari lblA.Tag=1 dan lblB.Tag=2
trus di event OnMouseUp dari lblA dan lblB tambahkan coding ini procedure TForm1.lbl1AMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Self.Tag:=(Sender as TLabel).Tag; end; nah di OnClick PopUpMenu tinggal kasih coding if Self.Tag = lblA.Tag then form1.caption := 'lblA' else if Self.Tag = lblB.Tag then form1.caption := 'lblB'; cuma contoh aja, silahkan dioprek sendiri namaskar Ol1v3r ----- Original Message ----- From: "Irwan" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Monday, November 10, 2003 2: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 ---------------------~--> 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/
