Delphi动态创建控件

[q296361388]

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

[superlixiao78]

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

[q296361388]

引用 1 楼 superlixiao78 的回复:

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

showmessage 是空的

[随行的太阳]

[多壮志]

(sender as Tbutton).name

[多壮志]

引用 4 楼 dobetterthatnthink 的回复:

(sender as Tbutton).name

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

[sololie]

同LS，创建时需给它个name

var
  img: Timage;
begin
  img := TImage.Create(Self);
  img.Name := 'myImg';
  .....

[superlixiao78]

引用 2 楼 q296361388 的回复:

[quote=引用 1 楼 superlixiao78 的回复:] var s_name: string; begin if sender is Timage then s_name:=Timage(sender).name; end

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

[cqs6616]

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

[hongss]

[dongmei757]

在创建TIMage时，给image赋予name属性，加个tag

SetLength(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;

[tcmakebest]

控件名称只是在写代码的时候用来获取控件对象，而动态创建的控件已经直接获取到对象了，名称已经没有意义。

[Andy-88]

楼上说的 认同 我平时用的用动态数组来 来记录动态的建的对象 这个9楼 的同学已经给了 当然你若非要用名字 6楼 的正解