Scroll en componente TScrollBox

[cmfab]

Hola a todos en este gran foro, resulta que tengo un componente contenedor TScrollBox, en el cual creo infinidad de controles tipo Tbutton, el asunto es que necesito que funcione el scroll al arrastrarlo sin soltarlo, osea que vaya bajando o subiendo por lal lista de botones, actualmente esto me funciona solo con el click en los extremos de la barra de desplazamiento vertical, o arrastrando el scroll y soltandolo, pero necesito que al arrastrar el scroll vertical la lista se vaya desplazando automáticamente igual que lo hace un listbox por ejemplo, espero me haya explicado correctamente y gracias de antemano.

[ecfisa]

Hola cmfab.

Podes lograrlo mediante la propiedad Tracking, por ejemplo:

Código Delphi [-]
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  with ScrollBox1 do
  begin
    HorzScrollBar.Tracking := CheckBox1.Checked;
    VertScrollBar.Tracking := CheckBox1.Checked;
  end;
end;

(También podes configurar esta propiedad desde el Object Inspector)

Saludos

[cmfab]

Listo, muchísimas gracias por la aclaración

[FideRosado]

se puede usar en el mismo contenedor la rueda del raton ,, yo he intentado pero no me sale..

[ecfisa]

Hola FideRosado.

Revisa este enlace: Ratón arriba, ratón abajo, ratón arriba...

Saludos

[FideRosado]

Empezado por ecfisa

Hola FideRosado.

Revisa este enlace: Ratón arriba, ratón abajo, ratón arriba...

Saludos

ese ejemplo lo puse pero no me sale.. se me keda en donde mismo..

segun el esquema que esta arriva, en texto , es la jerarquia del scrollbox, como esta en el ejemplo que me mandastes , trata de hacerlo que funcione el scroll ahy .. y despues me lo posteas para saber como fue porke ya los intente todos..

[ecfisa]

Hola FideRosado.

Si el control que posee el foco es el TScrollBox el código del enlace funciona correctamente. Claro está que siempre que el scroll sea posible.

Por ejemplo, dos casos en los que no funcionaría:

• Que todos los controles puedan ser mostrados en el ScrollBox (nada para hacer scroll).
• Que los controles a ser mostrados estén dentro de otro alineado al cliente. Por ejemplo, un TScrollBox que contiene un TPanel alineado al cliente con muchos TButton dentro.

Saludos

[FideRosado]

pero no me sale no se porke ,,