关于ObjectPascal的问题

Question

我的一个窗体中有很多的相同的控件(TLabel)
他们有类似的事件响应程序段落(都是在单击以后,将其Hint传递给另一个变量)
我现在的写法是每个OnClick时间分别填写不同的代码,但是这些代码的确有太多的相似之处,
我看过Delphi带的一些例子是用 AS 实现的,但是我怎么也没有试验成功
特向各位大侠讨个见解
不甚感激

Answer 1

把你所有的TLabel的OnClick的事件指向同一个事件，然后分别设定他们的Hint。
比如Label1OnClick代码如下  ShwoMessage((Sender as TLabel).Hint);

Answer 2

pazee(耙子) 说的很正确的。
如果你有个别的label要单独处理的化，可以这样：
设定：label1.tag:=1; label2.tag:=2;...
case (Sender as TLabel).tag of
 1:  //label1
 2:  //label2
......
 end;

Answer 3

谢谢！
我试过类似 BoningSword 的方法，
写法是
with Sender as TLabel do
但是在下面调用
Sender.Hint 就报错Undecleared Indentifier