在 Delphi 中的 for 语句中制作相同的组件

Question

我想在 delphi 的 for 语句中动态创建相同的组件，但它只制造一个组件。为什么？我该如何修复以下代码？

  for i := 0 to numberDot do
  begin
    button := TImage.Create(Self);
    try
      button.Parent := pnScroll;
      button.Height := 24;
      button.Width := 24;
      button.Name := 'button' + i.toString;
      button.Visible := true;
      imglScrollButtons.GetBitmap(0, button.Picture.Bitmap);
   finally
   end;
  end;

Answer 1

您正在生成许多组件，但它们都在彼此之上。要查看全部，请通过设置 Left 或 Top 属性为它们提供不同的位置。

在 Delphi 中的 for 语句中制作相同的组件

Make same components in for statement in Delphi

delphi

components