在form的onmousedown里加入
Var
tobj:TLabel
begin
Tobj:=Tlabel.create(self);
Tobj.parent:=self;
tobj.top:=y;
tobj.left:=x;
tobj.width=50;
tobj.caption:='xyzk'
end;
问题1:
我在form里点了好几下鼠标左键,也出现了很多label
我如何区另这些label,比如它的name?
问题2:
如何给这些label添加onclick内容
问题3:
怎么在程序中控制它们,比如让其中的一个的top等于0.
谢谢..

解决方案 »

  1.   

    问题1:
    我在form里点了好几下鼠标左键,也出现了很多label
    我如何区另这些label,比如它的name?
    创建的时候就添加name属性,代码后面加入tobj.name = 'Label'+IntToStr(static int i(最好载恰前面定义));i++;
    问题2:
    如何给这些label添加onclick内容
    添加事件就可以了
    tobj.OnClick = Labelclick;记得写Labelclick的过程;
    问题3:
    怎么在程序中控制它们,比如让其中的一个的top等于0.
    控制他们,在事件里可以用Sender指针进行控制;代码太多,不写了
      

  2.   

    创建的时候给label赋值不同的name属性比如label1 label2 label3 label4
      

  3.   

    可以使用Self.FindComponent来根据名字查到:(这里的Self指的是窗体容器)
    函数原型为:
    function TComponent.FindComponent(const AName: string): TComponent;