Creación de botones

[jachguate]

Tené cuidado, que vas a terminar creando 1000 botones y dejarás la máquina sin recursos!

Código Delphi [-]
PosY := 10;
while not query1.eof do
begin
  with TButton.Create(Self) do
  begin
    Caption := query1Nombre.AsString;
    OnClick := AlgunMetodo;
    Parent := Self;
    Top := PosY;
    PosY := PosY + Height + 5;
  end;
  query1.Next;
end;

Hasta luego.