procedure TForm1.Button1Click(Sender: TObject);
var
Mybutton:array of TButton;
i:integer;
begin
SetLength(MyButton,5);
for i :=0 to 4 do
 begin
  Mybutton[i]:=TButton.Create(self); //什么意思?
  Mybutton[i].Top:=10+i*30;//以下是定义按钮的尺寸的把
  Mybutton[i].Left:=20;
  Mybutton[i].Height:=30;
  Mybutton[i].Width:=60;
  Mybutton[i].Parent:=self;
  Mybutton[i].Caption:='Enter';
  Mybutton[i].Show;//这句什么意思呢?
  Button1.Visible:=False;//这句什么意思呢? end;
end;end.

解决方案 »

  1.   

        Mybutton[i]:=TButton.Create(self);   //创建一个按钮对象,其Owner为self(所在的窗口)
        Mybutton[i].Top:=10+i*30;//按钮的位置:高
        Mybutton[i].Left:=20;//按钮的位置:左
        Mybutton[i].Height:=30;//按钮的高度
        Mybutton[i].Width:=60;//按钮的宽度
        Mybutton[i].Parent:=self;//父组件为自己
        Mybutton[i].Caption:='Enter';//按钮上显示的内容
        Mybutton[i].Show;//显示按钮
        Button1.Visible:=False;//隐藏按钮Button1