如何自已生成控件

Question

var r1:tbutton;
begin
    r1.create(self);
    
end;
肯定不行了，你还要对button的属性设置，如left,right这些。
关键好像是：r1.parent:=Form1;

Answer 1

var
  b :TButton;
begin
  b := TButton.Create(Self);
  b.Parent := Form1;
endl

Answer 2

var r1:tbutton;
begin
r1:=tbutton.create(self);
r1.name:='1';
r1.caption:='asdfsd';
r1.left:=10;
r1.top:=10;
r1.parent:=form1;//这个必须要的
r1.visible:=true;
r1.show;
end;

Answer 3

这样即可，你还要添加各种属性，
当然也可为之指定事件处理程序
var B2:TButton;
begin
        B2:=TButton.Create(nil);
        B2.Parent:=Form1;
end;