Crear un TPanel dentro de un TPanel dentro de un TScrollBox
 

¡Hola, compañeros!

Pues nada, que debo crear dinámicamente dentro de un TScrollBox un TPanel (y ponerle nombre, características, altura, alineación, color, etc) y dentro del TPanel mencionado anteriormente, tres TPanel más, que ocupen el espacio del TPanel contenedor.

... pero no tengo la menor noción de cómo hacerlo..., ¿podría esperar que algún integrante me proporcione un poco de ayuda?

Hola tiammat.

Fijate si este ejemplo te sirve de guía:

Código Delphi [-]
...
var
  SBox: TScrollBox;
  Pnl1,Pnl2: TPanel;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SBox:= TScrollBox.Create(Self);
  SBox.Name:= 'DynSCrollBox';
  SBox.Width:= 450;
  SBox.Align:= alRight;
  SBox.Parent:= Self;

  Pnl1:= TPanel.Create(Self);
  Pnl1.Name:= 'DynPanel1';
  Pnl1.BevelInner:= bvNone;
  Pnl1.BevelOuter:= bvNone;
  Pnl1.Ctl3D:= False;
  Pnl1.Width:= 300;
  Pnl1.Height:= 300;
  Pnl1.Left:= (SBox.Width - Pnl1.Width) div 2;
  Pnl1.Top:= (SBox.Height - Pnl1.Height) div 2;
  Pnl1.Color:= clBlack;
  Pnl1.Parent:= SBox;

  Pnl2:= TPanel.Create(Self);
  Pnl2.Name:= 'DynPanel2';
  Pnl2.BevelInner:= bvNone;
  Pnl2.BevelOuter:= bvNone;
  Pnl2.Ctl3D:= False;
  Pnl2.Width:= 250;
  Pnl2.Height:= 250;
  Pnl2.Left:= (Pnl1.Width - Pnl2.Width) div 2;
  Pnl2.Top:= (Pnl1.Height - Pnl2.Height) div 2;
  Pnl2.Color:= clRed;
  Pnl2.Parent:= Pnl1;
end;
....

Saludos :)

Elegante, simple, sencillo y MUY adecuado..., gracias. Lo utilizaré inmediatamente.

respuesta
 

simkiere un proy de lo mas bueno , busca una ap en una de mis publicaciones que trata de ese mismo problema,y hasta puedes usar el desplazamiento de la rueda del raton..y seleccionar cada uno de los paneles ..1,2,3 x cada nuno

¿maaandeeeee? :confused:

Hola.

Creo que hace referencia al código desarrollado en este hilo: Scroll en componente TScrollBox ...

Saludos :)

Muchas gracias por el ofrecimiento, ése "detalle" para el TScrollBox lo tengo dominado. El corrector ortográfico de tu móvil como que se alocó un poco... :P