Question

delphi动态创建数组控件，该怎么处理

Answer 1

以下是动态创建控件 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;

运行结果：

Answer 2

你的动态数组变量必须定义成单元级别的或者全局的