基础知识请教

Question

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.

Answer 1

动态创建按钮 
Mybutton[i]:=TButton.Create(self);  创建一个TButton的实例
属主为Button1
show 就是显示出来 
最后一句让Button1不显示 

Answer 2

for    i    :=0     to   4    do   
    begin   
        Mybutton[i]:=TButton.Create(self);       //建立一个新 TButton 保存在Mybutton[i]中.
        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;//显示该TButton
        Button1.Visible:=False;//Button1不可见    end;   
end;   

Answer 3

var
  Mybutton: array of TButton;
  i: integer;
begin
  SetLength(MyButton, 5);
  for i := 0 to 4 do
  begin
    Mybutton[i] := TButton.Create(self); //动态创建Button控件
    Mybutton[i].Top := 10 + i * 30; //对头，这个Top,Left是定义位置的。
    Mybutton[i].Left := 20;
    Mybutton[i].Height := 30;  //Height, Width是定义大小的
    Mybutton[i].Width := 60;
    Mybutton[i].Parent := self; //设置控件的容器
    Mybutton[i].Caption := 'Enter'; 控件的显示名称
    Mybutton[i].Show; //控件的显示
    Mybutton[i].Visible := False; //控件不可以见，设置为True才可以看到创建的5个Button
  end;
end;