5,379
社区成员
发帖
与我相关
我的任务
分享
var
Form1: TForm1;
But : array of TButton;
NewNum : integer;
OldNum : integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
NewNum := strtoint(Edit1.Text);
SetLength(But,NewNum);
for i := 0 to NewNum -1 do
begin
But[i] := TButton.Create(Panel1);
But[i].Parent := Panel1;
But[i].Width := 75;
But[i].Height := 33;
But[i].Tag := 200+i;
But[i].Name := 'But'+inttostr(i);
But[i].Caption := '';
But[i].Top := 40 ;
But[i].Left := 8+ i*120;
end;
OldNum := NewNum;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i : integer;
begin
try
for i:= OldNum-1 downto 0 do
begin
FreeAndNil(But[i]);
end;
except
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
i:integer;
TempCom:TComponent;
begin
try
for i:= Panel1.ComponentCount-1 downto 0 do
begin
TempCom := Panel1.Components[i];
FreeAndNil(TempCom)
end;
except
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
if Assigned(But[0]) then
begin
showmessage('Find');
end;
end;