delphi动态创建数组控件，该怎么处理
答案:2 悬赏:20 手机版
解决时间 2021-01-04 20:40
- 提问者网友：雾里闻花香
- 2021-01-03 22:44
delphi动态创建数组控件，该怎么处理
最佳答案
- 五星知识达人网友：舍身薄凉客
- 2021-01-03 23:49
以下是动态创建控件 TButton 数组，进行处理的代码示例：
procedure TForm1.Button1Click(Sender: TObject);
var
arrButton: array[1..10] of TButton;
i: Integer;
begin
for i := 1 to 10 do
begin
arrButton[i] := TButton.Create(Self);
arrButton[i].Parent := Panel1;
if i<6 then
begin
arrButton[i].Left := i*80;
arrButton[i].Top := 40;
end else
begin
arrButton[i].Left := (i-5)*80;
arrButton[i].Top := 100;
end;
arrButton[i].Caption := '按钮'+IntToStr(i);
arrButton[i].onClick := ButtonClick;//按纽事件
end;
end;运行结果：
procedure TForm1.Button1Click(Sender: TObject);
var
arrButton: array[1..10] of TButton;
i: Integer;
begin
for i := 1 to 10 do
begin
arrButton[i] := TButton.Create(Self);
arrButton[i].Parent := Panel1;
if i<6 then
begin
arrButton[i].Left := i*80;
arrButton[i].Top := 40;
end else
begin
arrButton[i].Left := (i-5)*80;
arrButton[i].Top := 100;
end;
arrButton[i].Caption := '按钮'+IntToStr(i);
arrButton[i].onClick := ButtonClick;//按纽事件
end;
end;运行结果：
全部回答
- 1楼网友：罪歌
- 2021-01-04 00:24
procedure tform9.btn2click(sender: tobject);
var
i: integer;
begin
if length(btnarr)>0 then //避免二次释放
begin
for i := 0 to length(btnarr) - 1 do
btnarr[i].free;
end;
end;
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯