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