Question

delphi 判断移动到控件上

鼠标在主界面上移动怎么判断鼠标进入某一个控件了呢？界面上有很多个label ！每一个lanbel都可以onMouseEnter，但是这样太麻烦了！能不能在主界面的onMouseMove里判断鼠标进入到label控件上！怎么实现呢？

Answer 1

不可以，那样更麻烦！
你完全没有必要每一个label控件都写一遍onMouseMove事件代码，相同的代码可以共用的！

追问

click事件
Application.CreateForm(TFtp,Ftp);//每个label打开的都不一样
Ftp.ShowModal;
（鼠标进入事件）Label1MouseEnter
Bevel1.Visible := True;//每个label都有一个对应的Bevel
Label1.BringToFront;
（鼠标离开事件）Label1MouseLeave(..);
Bevel1.Visible := False;
怎么公用呢？都要用到鼠标事件！因为鼠标的进入与出来改变显示的状态啊！要八个label啊！

追答

哦，那你用主窗体的也不行，因为你每个都不一样呀！

Answer 2

可以用共用事件,选中所有的Label控件,设置进入事件和移出事件为同一个事件,比如Label1MouseEnter,然后在事件中
if TLabel(Sender).Caption= 'Label1' then
Bevel1.Visible := True;//每个label都有一个对应的Bevel
TLabel(Sender).BringToFront;