ScrollBox1.HorzScrollBar.Visible := true howto

[ecfisa]

Hola.

Realmente no entiendo ese comportamiento, de hecho he utilizado ese código sin ningún tipo de inconveniente.

No ví ningún parámetro de la función que lo maneje, pero podés revisar aqui: SetWindowLong Function, por si algo se me escapó.

Además el texto en: About Scroll Bars, denota lo irregular del comportamiento que mencionás.

If most of the object is visible, the scroll box occupies most of the scroll bar shaft. Similarly, if only a small portion of the object is visible, the scroll box occupies a small part of the scroll bar shaft.

Quizá el problema lo esté generando el uso de frames...

Un saludo.

[arrayman]

Bueno casi que me da verguenza decir esto. en fin el asunto es que al estar los componente internos con align alclient(o altop) nunca llegan a ser mas grandes que la superficie del scrollbox (upss)

al final quedo sin hacer uso el codigo ecfisa (muchisimas gracias)
y aunque es un poco ñapa hago esto.

Código Delphi [-]
procedure TVisorFra.ScrollBox1Resize(Sender: TObject);
var
  i:integer;
  oResItem:TResItemFra;
begin
  for i := 0 to ScrollBox1.ControlCount - 1 do
  begin
    if ScrollBox1.Controls[i] is TResItemFra  then
    begin
      oResItem := TResItemFra(ScrollBox1.Controls[i]);
      oResItem.Align := alNone;
      oResItem.Top := i*oResItem.Height;
      oResItem.Width := 1980;
      //oresItem.Width := ScrollBox1.Width+ 2;
    end;
  end;
end;

nuevamente gracias, he aprendido de ti.

[ecfisa]

Hola arrayman.

No tenés por que disculparte. Me alegra mucho que hayas resuelto el problema y te agradezco que nos hayas presentado la solución.

Un saludo.