顶!!!!非常简单的问题Z!!!!

Question

我想动态创建一个按钮,但是不知道为什么看不见按钮,也没有错误提示. 代码如下: -------------------------------------------------------------------- procedure TForm1.Button2Click(Sender: TObject); 
    var 
  newbutton:tbutton; 
begin 
  newbutton:= tbutton.Create(self);       newbutton.Left:=600; 
      newbutton.Top:=100; 
      newbutton.Visible:=true; end;

Answer 1

你加上一句newbutton.onwner:=form1;表示你是在什么容器上创建

Answer 2

procedure TForm1.Button2Click(Sender: TObject); 
    var 
  newbutton:tbutton; 
begin 
     newbutton:= tbutton.Create(self); 
     newbutton.Parent :=Self;
      newbutton.Left:=600; 
      newbutton.Top:=100; 
      newbutton.Visible:=true; end;