delphi - 在 Delphi 中运行时从数据库表创建按钮

Question

我想在运行时从数据库创建按钮。例如，我有一个表，可以说是用户。我需要创建与用户表包含一样多的按钮。

下面的代码可以做到这一点。但我有一个问题，它只给我最后一个按钮，或者它将所有按钮放在其他按钮之上，我只看到最后一个按钮。

我需要将按钮一个挨着一个。

procedure TForm1.Button2Click(Sender: TObject);
var
Bt: TButton;
i: Integer;
begin
Query1.First;
  while not Query1.Eof do
   begin
    i:=0;
    Bt := TButton.Create(Self);
    Bt.Caption := Query1.Fields[0].AsString;
    Bt.Parent := Self;
    Bt.Height := 23;
    Bt.Width := 100;
    Bt.Left := 10;
    Bt.Top := 10 + i * 25;

    i:= i+1;
    Query1.Next;
  end;
end;

我应该更改或添加什么？

Answer 1

每次循环迭代时都会重置 i 计数器。在进入循环之前初始化一次:

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;  
  Bt: TButton;  
begin
  Query1.First;
  i := 0; // initialize the counter before you enter the loop
  while not Query1.Eof do
  begin
    Bt := TButton.Create(Self);
    Bt.Caption := Query1.Fields[0].AsString;
    Bt.Parent := Self;
    Bt.Height := 23;
    Bt.Width := 100;
    Bt.Left := 10;
    Bt.Top := 10 + i * 25;
    i := i + 1;
    Query1.Next;
  end;
end;