如何处理TScrollBox的鼠标滚轮事件？

[cool_afei]

如题，麻烦给个例子，行吗？

[fbysss]

ScrollBox本身有MouseWheel事件,在这里写入处理代码即可

[fbysss]

procedure TForm1.ScrollBox1MouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
ScrollBox1.VertScrollBar.Position := ScrollBox1.VertScrollBar.Position - WheelDelta;
end;

[dext]

Delphi7 里ScrollBox本身有MouseWheel事件
Delphi7一下，有两个方法！
一个是继承TScrollBox,重写WndProc
第二个使用Apllication.OnMessage;

[dext]

第二个方法简单，第一个方法通用！

方法二：
TForm1 = class(TForm)
procedure OnMouseWheel(Var Msg :TMsg;var Handled:Boolean);
end;

procedure TForm1.OnMouseWheel(Var Msg :TMsg;var Handled:Boolean);
begin
if Msg.message = WM_MouseWheel then
begin
if Msg.wParam > 0 then
begin
SendMessage(ScrollBox1.Handle,wm_VScroll,sb_LineUp,0);
end
else
begin
SendMessage(ScrollBox1.Handle,wm_VScroll,sb_LineDown,0);
end;
Handled:= True;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage:=OnMouseWheel;
end;

方法一：


type
TScrollBox1 = class(TScrollBox)
procedure OnMouseWheel(Var Msg: TMsg); message WM_MouseWheel;
....
end;


你试试吧，我手头没有Delphi!