var
Mybutton:TbuttonMybutton:=Tbutton.create(self);
MYbutton.parents:=form1;
Mybutton.Top:=100;
Mybutton.Width:=20;
Mybutton.Caption:='test'
Mybutton:TbuttonMybutton:=Tbutton.create(self);
MYbutton.parents:=form1;
Mybutton.Top:=100;
Mybutton.Width:=20;
Mybutton.Caption:='test'
ra[h].Parent:=panel7;
ra[h].Top:=20;
ra[h].Caption:=fieldbyname('nd').AsString;
ra[h].Width:=100;
ra[h].Checked:=true;
谢谢!
帮你up!!!!
在过程中声明一个控件类型的变量
var controlvar1:TControl;
然后在需要动态创建的地方调用控件类相应的创建函数
controlvar1 := TControl.create(self);
最后最重要的要将控件的parent属性设置为你的绘图区控件的名字。
如果不行的话,让作者重新改控件。
其它的属性是一样的使用。五百分哦,我也来凑热闹。哈哈