Creating buttons from database table on runtime in Delphi

Question

I want to create buttons from Database on runtime. For example I have a table lets say users. I need to create as many buttons as the user table contains.

The following code does that. But I have a problem, it gives me the last button only or it puts all buttons on top of other and I see only last button.

I need to get the buttons one next to other.

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;

what should I change or add?

TLama · Accepted Answer · 2013-07-06 10:29:03Z

4

You reset the i counter with every loop iteration. Initialize it once before you enter the loop:

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;

answered Jul 6, 2013 at 10:29

TLama

76.9k17 gold badges226 silver badges418 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Creating buttons from database table on runtime in Delphi

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related