Scroll en componente TScrollBox

[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 ,,

[FideRosado]

Empezado por FideRosado

pero no me sale no se porke ,,

trata de hacerlo aver si te sale , con el ejemplo ke me mandastes ..

será que cuando creas los tpanel dentro del scrollbox. el mismo pierde el foco porke lo que este dentro es tpnel..como hacer que el siempre tenga el foco

[FideRosado]

Empezado por FideRosado

trata de hacerlo aver si te sale , con el ejemplo ke me mandastes ..

será que cuando creas los tpanel dentro del scrollbox. el mismo pierde el foco porke lo que este dentro es tpnel..como hacer que el siempre tenga el foco

creo que seria bueno pensar en capturar el control a travez del parent , es decir si las dependencias estab dentro del llamado scrollbox1 pues a ese hay que mandarle siempre el nuevo valor de scroll box..

[ecfisa]

Empezado por FideRosado

trata de hacerlo aver si te sale , con el ejemplo ke me mandastes ..

será que cuando creas los tpanel dentro del scrollbox. el mismo pierde el foco porke lo que este dentro es tpnel..como hacer que el siempre tenga el foco

Hola.

No funciona por que cae en la misma categoría del segunco caso del mensaje #7 (controles con Align). Basta con que cambies esto en la creación de los paneles para que funcione:

Código Delphi [-]
procedure TForm1.btnCreatePnlClick(Sender: TObject);
begin
  Pnl         := TPanel.Create(nil);
  Pnl.Name    := 'PnlUser' + IntToStr(numberpanel);

  //Pnl.Align   := alTop;  (desactivar esta línea)

  Pnl.Top     := numberpanel * 50; // agregar esta
  ...

Saludos

[FideRosado]

Empezado por ecfisa

Hola.

No funciona por que cae en la misma categoría del segunco caso del mensaje #7 (controles con Align). Basta con que cambies esto en la creación de los paneles para que funcione:
Código Delphi [-]procedure TForm1.btnCreatePnlClick(Sender: TObject); begin Pnl := TPanel.Create(nil); Pnl.Name := 'PnlUser' + IntToStr(numberpanel); //Pnl.Align := alTop; (desactivar esta línea) Pnl.Top := numberpanel * 50; // agregar esta ...


Saludos

en todo caso puede darme problemas, recuerda que esa es la forma en la que el panel se acomoda dentro del scroll..y ademas , el scroll recibe los paneles bien . pork no se le puede capturar el scroll que tiene el control scroll box en ese momento y cambiarlo por otro..

[ecfisa]

Empezado por FideRosado

...
pork no se le puede capturar el scroll que tiene el control scroll box en ese momento...

Hola.

Sencillamente por que el área cliente del TScrollBox se encuentra solapado por los paneles que la ocupan. Es por esa razón que la función FindVCLWindow devuelve un TPanel (aquél sobre el que se halla el cursor).

Sin embargo, si creas mas paneles de los que pueda mostrar el ScrollBox y posicionas el cursor del mouse sobre el ScrollBar vertical (del ScrollBox), verás que la rueda funciona correctamente tal como en este demo que te adjunto.

Saludos