请教一下如何写事件获取动态生成的控件的属性。

Question

code:
var
image:array[1..20] of Timage;
for i:=1 to 10 do
  begin
     image[i]:=TImage.creat(self);
     image[i].tag:=i;
     image[i].Onclick:=imageclick;
  end;
porcedure imageclick(sender:Tobject)
begin
    ………………
    ………………
end;
我想点击任意一个生成的image控件并获得该控件的TAG值，在imageclick事件中的代码该怎么写啊？

Answer 1

ShowMessage(IntToStr(TImage(Sender).Tag));

Answer 2

或者ShowMessage(IntToStr((Sender as TImage).Tag));