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!