Ver Mensaje Individual
  #2  
Antiguo 07-02-2014
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 07-02-2014 a las 17:39:23.
Responder Con Cita