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

窗体中有N个 Label,如何让鼠标指向Label时显示它的内容(即Hint)?
窗体中有N个 Label,如何让鼠标指向Label时显示它的内容?
如Label1的Caption是:我爱XXXXXXXXXXXXXXXXXXXX国
......
LabelN的Caption是:NNNNNNNNNN...

如果要手动一个个去做,就好麻烦了.
意思是指向那个Label,
Hint就显示该Label的Caption.

[解决办法]
LABEL不是有个 MouseEnter事件 你动态关联一下它就行了吧

Delphi(Pascal) code

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;