在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属性为它们指定不同的位置。