Insertar un Panel dentro de otro panel

[edgwin]

Buenos dias amigos del foro.

Tengo un problema de principiantes. Necesito crear un TPanel en tiempo de ejecucion, dentro de otro TPanel. Tengo un boton y un TPanel con align = alBottom.

Mi codigo es el siguiente:

Dentro de un Button:


Procedure TfrmMain.Button1Click(Sender: TObject);
var
Pnl : TPanel;
begin
Pnl := TPanel.Create(Panel1);
Randomize;
Pnl.Name := 'Pnl'+IntToStr(Random(1000));
Pnl.Caption := 'Hola al panel 1';
Pnl.Align := alClient;
Pnl.Parent := Panel1.Parent;
MessageDlg (IntToStr(Panel1.ComponentCount),mtInformation,[mbYes],0);
end;


Mi problema radica en que el Panel creado en tiempo de ejecucion, no se posisiona dentro del Panel que se encuentra desde tiempo de diseño (Lo pone por arriba).

Mi pregunta: ¿Existe alguna manera de posicionar el TPanel creado en tiempo de ejecucion dentro del TPanel creado en tiempo de diseño respetando el Align? (es decir, que haga el align dependiendo del tamaño del primer TPanel, no como se le de la gana). Como se podran dar cuenta, (con el MessageDlg del final) si esta insertando el componente dentro del otro componente.

Gracias y saludos!

[Lepe]

Cambiar un control de padre, es precisamente muy fácil, sólo tienes que cambiar dicha propiedad:

Pnl.Parent := Panel1;


Al decirle Panel1.Parent, estabas seleccionando el padre del Panel1 (que sería el Form, supongo) por eso te lo ponía por arriba.

Las propiedades Align te las repetará sin problemas.

Detalle: Una cosa es el dueño (propiedad AOwner) y otra Padre (propiedad Parent).

El dueño es decirle que cuando se destruya el Panel1, también mande a destruir el pnl creado en ejecución.
El Padre es decirle sobre qué control quieres que se situe.

Saludos

[edgwin]

Gracias amigo!! Los dioses del olimpo (jajaja) te regresaran 10 veces mas por tu ayuda!

Saludos!

[Lepe]

... que sea en €uros, que con la crisis está muy mal la cosa... :D :D