如何在一个窗体里动态创建不确定个同一组件？

Question

问题如上

Answer 1

File,New,Application:procedure TForm1.FormCreate(Sender: TObject);
var
  i, j: integer;
  b: array of TButton;
begin
  Randomize;
  i := Random(100);
  SetLength(b, i);
  for j := 0 to i - 1 do
  begin
    b[j] := TButton.Create(Self);
    b[j].Parent := Self;
    b[j].Left := Random(500);
    b[j].Top := Random(400);
  end;
end;