笨 笨蛋 Unregistered / Unconfirmed GUEST, unregistred user! 2000-05-18 #1 我有几个LISTBOX,每个LISTBOX点右键都弹出相同POPMENU1, 但怎么得知具体是哪个LISTBOX触发的呢？SENDER似乎不好用！
L liuyj Unregistered / Unconfirmed GUEST, unregistred user! 2000-05-18 #3 也可以在mousedown事件中加入 if button=mbright then edit2.text:=tcomponent(sender).name; 则edit2中显示所点击的控件名称.
K kawen Unregistered / Unconfirmed GUEST, unregistred user! 2000-05-18 #4 几个LISTBOX的tag不同,在响应事件中判断 i:=Tcompent(Sender).tag; case i of 0:xxxxx; 1:xxxxx; end;
S SuperMMX Unregistered / Unconfirmed GUEST, unregistred user! 2000-05-19 #5 同意 Croco, 你的 sender 是哪里的 sender?
T thtfsyh Unregistered / Unconfirmed GUEST, unregistred user! 2000-07-25 #6 procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if button=mbright then edit1.text:=tcomponent(sender).name; end; 然后其他的listbox也引用同样的事件
procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if button=mbright then edit1.text:=tcomponent(sender).name; end; 然后其他的listbox也引用同样的事件
