动态创建label在Timage上，如何实现？？

Question

在form上我知道label.parent:=form1
但是我要在一个image上创建怎么办？？？

Answer 1

最好不用这样画出来，因为我还要让这个label滚动，然后还有点击事件

Answer 2

先有image，再有label，让label的Transparent 为true
procedure TForm1.Button1Click(Sender: TObject);
var
a : TLabel;
begin
   a := TLabel.Create(nil);
   a.Parent := Form1;
   a.Left := Image1.Left +10;
   a.Top := Image1.Top + 30;
a.Transparent := true;
   a.Caption := '100';
end;

Answer 3

算了，解决了，image不是一个容器，不能再上面创建，我在下面放了一个panel解决了。另一个问题：如何知道一个动态创建的label已经存在，然后释放它，另外创建？

Answer 4

没人会？？我用findcomponent怎么找不到我创建的控件？？？

Answer 5

Canvas.textout看错了。:(
wudi的方法就可以了。如果想再FindComponent的时候一定要给Name属性赋值。

Answer 6

procedure TForm1.Button1Click(Sender: TObject);
begin
    showmessage((FindComponent('aa') as TLabel).Caption);
end;procedure TForm1.Button2Click(Sender: TObject);
var
 aa : TLabel;
begin
  aa := TLabel.Create(form1);//create的Aowner参数不能为nil，设置为form1，self也可
  aa.Parent := Form1;
  aa.Caption := 'aa';
  aa.Name := 'aa';//name要赋值
end;

Answer 7

解决了，不是没有name,是我在创建的时候用的creat(nil),把nil换成控件名称panel就可以了，多谢各位！！