Scroll do mouse ScrollBox?

Delphi

16/02/2007

Alguém sabe me dizer como fazer para o scroll do mouse funcionar com o componente [b:7aea9c8663]ScrollBox[/b:7aea9c8663] :?: :?:


Adriano_servitec

Adriano_servitec

Curtidas 0

Respostas

Adriano_servitec

Adriano_servitec

16/02/2007

Ja resolvi, se alguem precisar tai o codigo

Coloque este codigo no onMouseWheel do Form.
procedure TForm.FormMouseWheel(Sender: TObject; Shift: TShiftState; 
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); 
Var 
  msg: Cardinal; 
  code: Cardinal; 
  i, n: Integer; 
begin 
  If WindowFromPoint( mouse.Cursorpos ) = scrollbox1.Handle Then Begin 
    Handled := true; 
    If ssShift In Shift Then 
      msg := WM_HSCROLL 
    Else 
      msg := WM_VSCROLL; 

    If WheelDelta < 0 Then 
      code := SB_LINEDOWN 
    Else 
      code := SB_LINEUP; 

    n:= Mouse.WheelScrollLines; 
    For i:= 1 to n Do 
      scrollbox1.Perform( msg, code, 0 ); 
      scrollbox1.Perform( msg, SB_ENDSCROLL, 0 ); 
  End; 
end;



GOSTEI 0
Aasn

Aasn

16/02/2007

Valeu pela dica Adriano!!!


GOSTEI 0
POSTAR