多个label的MouseEnter问题 form1上面有5个label,分别是label1、label2、label3、label4、label5,这五个label公用一个TForm1.Label1MouseEnter(Sender: TObject)事件,当鼠标进入label区域时,我怎么才能知道是进入的那个label并且要获取进入label的name,left,top等信息,谢谢了! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 if Sender is Tlabel then ShowMessage(Tlable(Sender).name); 這樣理解下應該明白了吧?或者對每個 Label 的 Tag 設置好ID號if Sender is Tlabel then begin case Tlabel(Sender).tag of 0: showMessage('label1 觸發'); 1: 2: ... end;end; (Sender as TLabel).name 等等 赚分... 关于Delphi操作Sql Server存储过程的一些问题 求缩略图创建算法。 关于应用程序嵌入NETMEETING控件的问题 为什么ADOConnection不能连接到远程主机上 用quickreport实现动态打印的问题?急 请教怎样继承TLabel的OnMouseMove和OnMouseLeave事件?(在线等待) 今天开始上班的朋友请进来吧!forgot祝大家新年好,恭喜发财! 请问大家有没有带阴历的日期控件呀? 在paradox库中如何用sql语句去获取指定行的数据 串口编程问题 第一次提问:Delphi中测试dll类型的单元有没什么好的方法
ShowMessage(Tlable(Sender).name); 這樣理解下應該明白了吧?
或者對每個 Label 的 Tag 設置好ID號if Sender is Tlabel then
begin
case Tlabel(Sender).tag of
0: showMessage('label1 觸發');
1:
2:
...
end;
end;