Delphi动态创建控件

Question

现在我动态创建了TIMage控件 也写了它双击的事件 但是我想在双击的时候获取这个Image控件的名称
请问怎么写

Answer 1

var
 s_name: string;
begin
 if sender is Timage then s_name:=Timage(sender).name;
end

Answer 2

showmessage 是空的 

Answer 3

(sender as Tbutton).name

Answer 4

应该是你创建的时候没有赋予name属性，哪种写法都一样

Answer 5

同LS，创建时需给它个namevar
  img: Timage;
begin
  img := TImage.Create(Self);
  img.Name := 'myImg';
  .....

Answer 6

showmessage 是空的 应该是你在创建的时候没有给这个组件命名。楼上是创建时命名代码。

Answer 7

看看你自己创建timgage控件时的问题

Answer 8

在创建TIMage时，给image赋予name属性，加个tagSetLength(image,4);
......
image[i] := TImage.Create(Self);
image[i].Caption := '打开';
image[i].Name := '名称'+inttostr(i);
image[i].Tag := i;
image[i].Top := top;
image[i].Left := Left;
image[i].OnClick := ClickImage;
......在image的ClickImage点击事件中 if sender is TImage then
   begin
      i := (sender as TImage).tag;
      showmessage(image[i].name);
   end;