Agregar objetos a un GridPanel en tiempo de ejecución

[[coso]]

hola. Prueba esto a ver si te sirve...

Código Delphi [-]
...
  public
    { Public declarations }
    obj : array of TButton;
    idx : integer;
...

procedure TForm1.Button1Click(Sender: TObject);
var
        cnt : integer;
begin
        SetLength(obj,idx+1);
        try
        obj[idx] := TButton.Create(self);
        obj[idx].Name := 'boton'+inttostr(idx);
        obj[idx].Parent := self;
        obj[idx].Left := (sender as TButton).Left + 10;
        obj[idx].Top  := (sender as TButton).Top + 10;
        obj[idx].Width := (sender as TButton).Width;
        obj[idx].Height := (sender as TButton).Height;
        obj[idx].Caption := Obj[idx].Name;
        obj[idx].Visible := true;
        obj[idx].Enabled := true;
        obj[idx].OnClick := (sender as TButton).OnClick;
        ShowMessage(obj[idx].Caption);
        inc(idx);
        except
        raise exception.Create('error creando nuevo boton');
        end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
        SetLength(obj,1);
        idx := 0;
end;

procedure TForm1.FormDestroy(Sender: TObject);
var
        i : integer;
begin
        for i := idx - 1 to 0 do
        obj[i].free;

        setlength(obj,0);
end;

es probable, no obstante, que haya maneras mas elegantes.

saludos

PD : releyendo, vi que es un 'GridPanel' y no un 'Panel'. No conozco ese componente asi que quiza este codigo no te sirva. Bueno, igualmente te lo dejo por si sí lo hace

[Luis Abraham]

Hola coso, muchas gracias por tu ejemplo, me es muy útil también para este caso.

Por otra parte, ya encontré como agregar componentes al GridPanel en tiempo de ejecución, aquí les dejo un ejemplo, solo necesitan un TGridPanel con 4 Columnas x 4 Renglones y un TButton:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var miBoton: TButton;
begin
   miBoton:= TButton.Create(Self);
   miBoton.Align:= alClient;
   miBoton.Name:= 'Boton' + IntToStr(Button1.Tag);
   miBoton.Caption:= miBoton.Name;
   Button1.Tag:= Button1.Tag+ 1;

   GridPanel1.ControlCollection.AddControl(miBoton, 0, -1);
   miBoton.Parent:= GridPanel1;
end;

Sin embargo, esta historia sigue sin tener un final feliz, ya que, hay un bug en el procedimiento TControlCollection.AddControl(AControl: TControl; AColumn, ARow: Integer) del unit ExtCtrls.pas el cual puede ser arreglado invirtiendo los indices Row y Column, pero el problema ahora es que no tengo ese archivo, solo tengo el archivo ya compilado (ExtCtrls.dcu) .

¿Alguna idea de donde lo puedo encontrar para aplicar el Workaround?

*Nota: Para mas información sobre el bug, vea la siguiente liga.

Saludos!