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.
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.
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