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