Ver Mensaje Individual
  #3  
Antiguo 25-06-2008
Luis Abraham Luis Abraham is offline
Miembro
 
Registrado: oct 2003
Ubicación: Guadalajara, Jalisco, México
Posts: 16
Reputación: 0
Luis Abraham Va por buen camino
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!
__________________
Saludos desde Guadalajara, Jalisco, México

Última edición por Luis Abraham fecha: 25-06-2008 a las 05:34:07.
Responder Con Cita