Scroll en componente TScrollBox

[ecfisa]

Hola.

A, pero eso es distinto a lo que había entendido que solicitabas en el título del mensaje (#4) "sobre el scroll con la rueda del raton"... De ese modo no funciona sobre el scrollbar.

De todos modos la modificación que hiciste se puede optimizar bastante:

Código Delphi [-]
procedure TForm1.MouseWheel(var Msg: tagMSG; var Handled: Boolean);
var
  FControl: TWinControl;
  i       : SmallInt;
begin
  FControl := FindVCLWindow(Mouse.CursorPos);
  i := HiWord(Msg.wParam);
  if Assigned(FControl) and (Msg.message = WM_MOUSEWHEEL) then
  begin
    if (FControl.Parent is TScrollBox) then
    begin
      with TScrollingWinControl(ScrollBox1).VertScrollBar do
      begin
        if i > 0 then
          Position:= Position - Increment
        else
          Position:= Position + Increment;
      end;
    end;
    Next;
  end;
end;

Pero es bueno aclarar que tanto el código del mensaje (#14) como este, debido al uso del procedimiento Next pueden presentar un comportamiento poco deseable.

Por ejemplo, si en un mismo form conviven un TListBox y el TScrollBox del que hemos venido hablando pude apreciar dos de ellos:

1. Si y se focaliza el ListBox y luego se realiza MouseWheel, la acción desencadena el scroll en ambos controles.
2. Si el ScrollBox no tiene paneles, el scroll se realizará sobre el ListBox, aún estando situados sobre el ScrollBox.

Saludos.

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