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