具有相同对齐的动态创建的按钮

Question

我是这个 Delphi 的新手。我被赋予了动态创建按钮的任务。但问题是所有按钮都必须以适合整个屏幕的方式对齐。即，如果创建了 10 个按钮，则应填充整个屏幕。或者如果给出 9，则 9 应该出现并填充在屏幕中。有可能这样做吗？我到处尝试和搜索。但是很无奈。

如果可能，请帮助我。一个很好的例子也值得赞赏，因为我之前提到过我对此很陌生。我做的代码如下。

procedure TfrmMovieList.PnlMovieClick(Sender: TObject);
begin
  for i := 0 to 9 do
  begin
    B := TButton.Create(Self);
    B.Caption := Format('Button %d', [i]);
    B.Parent := Panel1;
    B.Height := 23;
    B.Width := 100;
    B.Left := 10;
    B.Top := 10 + i * 25;
  end;
end;

Answer 1

这对我来说似乎可行：

procedure TForm1.CreateButtons(aButtonsCount, aColCount: Integer; aDestParent: TWinControl);
var
  rowCount, row, col, itemWidth, itemHeight: Integer;
  item: TButton;
begin
  if aColCount>aButtonsCount then
    aColCount := aButtonsCount;
  rowCount := Ceil(aButtonsCount / aColCount);
  itemHeight := aDestParent.Height div rowCount;
  itemWidth := aDestParent.Width div aColCount;
  for row := 0 to rowCount-1 do begin
    for col := 0 to aColCount-1 do begin
      item := TButton.Create(Self);
      item.Caption := Format('Button %d', [(row*aColCount)+col+1]);
      item.Left := itemWidth*col;
      item.Top := itemHeight*row;
      item.Width := itemWidth;
      item.Height := itemHeight;
      item.Parent := aDestParent;
      Dec(aButtonsCount);
      if aButtonsCount=0 then
        Break;
    end; // for cols
  end; // for rows
end;

一个使用例子是：

procedure TForm1.Button1Click(Sender: TObject);
begin
  CreateButtons(10, 4, Panel1);
end;

Ceil函数需要用到Math单元。

该方法接收按钮的计数和列数来计算行数。它还接收按钮所在的目标父级。