Estou utilizando o código abaixo mas o form não rola:
procedure TfrmCadBenef.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;
Teria alguma dica?
Abraços.
Ralp
Ricardo César Cardoso escreveu:
> Será que não dá pra adaptar essa dica aqui pra tua necessidade?
>
> [ http://www.swissdelphicenter.ch/torry/printcode.php?id=2142 ]
>
> Atte,
> Ricardo.
>
> Ralp Alves Bezerra <[EMAIL PROTECTED]> escreveu:
> Nobres Colegas,
>
> Em meu form tenho o componente ScrollBox. Minha dúvida é a seguinte:
> como faço para que meu forme role utilizando o scroll do mouse?
>
> Estou utilizando Delphi 7
>
> Desde já Agradeço.
>
> Abraços.
>
> Ralp Alves
>
>
> _
>
>
>
>
> ---------------------------------
> Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
> armazenamento!
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
> ------------------------------------
>
>
