Scroll en componente TScrollBox

[FideRosado]

tienes razon .. en eso me di cuenta ,, aca les pongo un a actualizacion del codigo, diciendole a los componentes que si el padre es scrollbox lo haga .. aun se puede mejorar , ve probandolo aver si llegas a mejorarlo..
pero bueno a mi me funcioina perfectamente..

Código Delphi [-]
procedure TForm1.MouseWheel(var Msg: tagMSG; var Handled: Boolean);
var
  FControl: TWinControl;
   i: SmallInt;
   o: integer;
   Scom: TComponent;
begin
    FControl:= FindVCLWindow(Mouse.CursorPos);
    i:= HiWord(Msg.wParam);
    if Assigned(FControl) and (Msg.message = WM_MOUSEWHEEL) then begin
  try

        if ( FControl.Parent is TScrollBox) then begin
            if i > 0 then begin
                with TScrollingWinControl(FControl.Parent).VertScrollBar do begin
                    if TScrollBox(FControl.Parent).VertScrollBar.Range > 0 then begin
                        Position:= Position - Increment;
                    end;
                end;
            end else begin
                with TScrollingWinControl(FControl.Parent).VertScrollBar do begin
                if TScrollBox(FControl.Parent).VertScrollBar.Range > 0 then begin
                        Position:= Position + Increment;
                    end;
                end;
            end;
    end else begin
      if ( FControl.Parent.Parent is TScrollBox) then begin
            if i > 0 then begin
                with TScrollingWinControl(FControl.Parent.Parent).VertScrollBar do begin
                    if TScrollBox(FControl.Parent.Parent).VertScrollBar.Range > 0 then begin
                        Position:= Position - Increment;
                    end;
                end;
            end else begin
                with TScrollingWinControl(FControl.Parent.Parent).VertScrollBar do begin
                if TScrollBox(FControl.Parent.Parent).VertScrollBar.Range > 0 then begin
                        Position:= Position + Increment;
                    end;
                end;
            end;

    end;
     ///////////////
    end;

  except
      next;
  end;
    end;
   Handled := False;
end;

[FideRosado]

unke pienso que necesita un codigo que busque si el componente o control tiene un parent scrollbox,,

es decir , va leyendo marcha atras para saber si hay un scroll box ...
y hacer el procedimiento..
yo solo utilice el

parent.parent

porque tengo un maximo de 2 niveles.. pero eso se puede mejorar verdad..

[ecfisa]

Hola.

Con el código del mensaje #16, note que:

1. Estando los paneles creados, si el ListBox tiene un ítem seleccionado, haciendo mouse whell cuando el cursor del mouse está sobre el ScrollBox se provoca el scroll en ambos controles.
2. Si ningún item del ListBox ha sido seleccionado, nunca efectua el scroll mediante mouse whell, aún estando el cursor del mouse sobre él.

Saludos

[FideRosado]

que estas hablando me parece que en el ejemplo no se usan listbox solo scrollbox,, me vas a confundir ...

[ecfisa]

Hola FideRosado.

Empezado por FideRosado

que estas hablando me parece que en el ejemplo no se usan listbox solo scrollbox,, me vas a confundir ...

Si recordas, este código parte de:

Empezado por ecfisa

Hola FideRosado.

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

Que trata una rutina para el manejo de la rueda del mouse lo suficientemente amplia para ser aplicada a distintos controles. Lo que implica detectar previamente el control donde se halla posicionado el mouse.


Si hubieras especificado que se aplicaría solamente a un ScrollBox de un form, te hubiera dado una respuesta mucho mas simple:

Código Delphi [-]
procedure TForm1.MouseWheel(var Msg: tagMSG; var Handled: Boolean);
var
  i: ShortInt;
begin
  if PtInRect(BoundsRect, Mouse.CursorPos) then
  begin
    i := HiWord(Msg.wParam);
    if Msg.message = WM_MOUSEWHEEL then
      with ScrollBox1.VertScrollBar do
        if i > 0 then
          Position:= Position - Increment
        else
          Position:= Position + Increment;
  end;
  Handled := False;
end;

Ya que en este caso no interesa en que parte del form se encuentre el cursor del mouse, el ScrollBox es el único que debe realizar la acción.

Saludos

[FideRosado]

por eso puse el codigo que de formal tal que estando sobre cualkier scrollbox, trabaje el onmousewell, y si no lo esta no hace nada, hay que especificar que solo puede cer en ese componente pero tabmien sobre cualkier cosa ,, lo que hay es que agregarcelos..