窗体中有N个 Label,如何让鼠标指向Label时显示它的内容(即Hint)?

Question

窗体中有N个 Label,如何让鼠标指向Label时显示它的内容?
如Label1的Caption是:我爱XXXXXXXXXXXXXXXXXXXX国
......
LabelN的Caption是:NNNNNNNNNN...如果要手动一个个去做,就好麻烦了.
意思是指向那个Label,
Hint就显示该Label的Caption.

Answer 1

有个思路。
写个函数，遍历系统中所有的label控件，移动过去的时候调用这个函数。

Answer 2

LABEL不是有个 MouseEnter事件 你动态关联一下它就行了吧
procedure TForm1.LabelMouseEnter(Sender: TObject);
begin
  TLabel(Sender).Hint := TLabel(Sender).Caption;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  label1.OnMouseEnter := LabelMouseEnter;
  label2.OnMouseEnter := LabelMouseEnter;
  label3.OnMouseEnter := LabelMouseEnter;
  label4.OnMouseEnter := LabelMouseEnter;
  label5.OnMouseEnter := LabelMouseEnter;
end;