ScrollBox no muestra la scrollBar vertical

[ecfisa]

Hola jars.

En realidad no tengo en claro de que se trata la cosa, pero te hice este ejemplo muy sencillo que redimensiona los TFrames al ancho del TScrollBox, tanto al crearlos como al estirar o contraer el Form.

Código Delphi [-]
...
implementation 

var
  vf: array of TFrame;

procedure TForm1.FormCreate(Sender: TObject);
const
  COLS: array[0..5] of TColor=(clRed,clYellow,clGreen,clBlack,clBlue,clAqua);
var
  i: Integer;
begin
  for i:= 0 to 5 do
  begin
    SetLength(vf, Length(vf)+1);
    vf[i]:= TFrame.Create(ScrollBox1);
    with vf[i] do
    begin
      Color := COLS[i];
      Width := ScrollBox1.Width - GetSystemMetrics(SM_CXVSCROLL) * 2;
      Height:= 60;
      Left  := 10;
      Top   := 10 + i * 100;
      Parent:= ScrollBox1;
    end;
  end;
end;

procedure TForm1.ScrollBox1Resize(Sender: TObject);
var
  i: Integer;
  F: TFrame;
begin
  for i:= Low(vf) to High(vf) do
  begin
    vf[i].Width:= ScrollBox1.Width-GetSystemMetrics(SM_CXVSCROLL)*2;
    vf[i].Left := 10;
  end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
var
  i: Integer;
begin
  for i:= Low(vf) to High(vf) do vf[i].Free;
  Finalize(vf);
end;

Saludos

[jars]

Gracias Ecfisa me fuiste de gran ayuda.
Lo voy a probar.
Respecto a mi ultima pregunta tenes alguna idea de como hacer que se vaya posicionando en el ultimo frame que recibe?
Gracias

[ecfisa]

Hola jars.

Modifiqué el ejemplo anterior para ver si de ese modo se asemeja lo que estás buscando:

Código Delphi [-]
...
implementation

type
  TCtrlRec = record
    Frame: TFrame;
    Edit : TEdit;
  end;

var
  vf: array of TCtrlRec;
  cont: Integer = 0;

procedure TForm1.btnNewFrameClick(Sender: TObject);
const
  COLS: array[0..5] of TColor=(clRed,clYellow,clGreen,clBlack,clBlue,clAqua);
begin
  if cont < 6 then
  begin
    SetLength(vf, Length(vf)+1);
    with vf[cont] do
    begin
      Frame := TFrame.Create(nil);
      Frame.Name  := Format('Frame%d',[cont+1]);
      Frame.Color := COLS[cont];
      Frame.Height:= 60;
      Frame.Left  := 10;
      if cont = 0 then
        Frame.Top := 10
      else
        Frame.Top := vf[cont-1].Frame.Top+vf[cont-1].Frame.Height + 10 ;
      Frame.Parent:= ScrollBox1;

      Edit       := TEdit.Create(vf[Cont].Frame);
      Edit.Name  := Format('Edit%d',[cont+1]);
      Edit.Left  := 10;
      Edit.Top   := 10;
      Edit.Text  := vf[cont].Frame.Name;
      Edit.Parent:= vf[cont].Frame;
      Edit.SetFocus;  //  <<=== Aqui se le dá foco al último control creado (Edit)
    end;
  end;
  Inc(cont);
end;

procedure TForm1.ScrollBox1Resize(Sender: TObject);
var
  i: Integer;
begin
 procedure TForm1.ScrollBox1Resize(Sender: TObject);
var
  i: Integer;
begin
  for i:= Low(vf) to High(vf) do
  begin
    vf[i].Frame.Width:= ScrollBox1.Width - 2*GetSystemMetrics(SM_CXVSCROLL) *
      Integer(ScrollBox1.VertScrollBar.Visible);
    vf[i].Frame.Left := (ScrollBox1.ClientWidth - vf[i].Frame.Width) shr 1;
  end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
var
  i: Integer;
begin
  for i:= Low(vf) to High(vf) do vf[i].Frame.Free;
  Finalize(vf);
end;

Salida:



Como se vé en la imágen, el foco está siempre en el último edit creado.

Para redimensionar horizontalmente el ScrollBox agregué un Splitter (que no se vé en la imágen)

Saludos

[jars]

Gracias Ecfisa ya lo estoy probando.
Abrazo