本文整理自网络，侵删。
procedure ScrollBox1MouseWheelUp(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
procedure ScrollBox1MouseWheelDown(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
private
procedure getmouse(var msg:TWMMouseWheel);message WM_MouseWheel;
{ Private declarations }
procedure TForm1.ScrollBox1MouseWheelUp(Sender: TObject;
Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
var
posi:integer;
begin
posi := ScrollBox1.vertScrollBar.Position - 25 ;
if ScrollBox1.vertScrollBar.Position < 0 then posi := 0;
ScrollBox1.vertScrollBar.Position := posi;
end;
procedure TForm1.ScrollBox1MouseWheelDown(Sender: TObject;
Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
ScrollBox1.vertScrollBar.Position := ScrollBox1.vertScrollBar.Position + 25 ;
end;
procedure TForm1.getmouse(var msg:TWMMouseWheel);
begin
ScrollBox1.SetFocus ;
end;
网友补充：
只要scrollBox能获取焦点就可以。
在scrollBox的onMouseMove上设置焦点。
然后在scrollBox的onMouseWhell中：
scrollBox1.Scrollby(0,WheelDelta);
相关阅读 >>
Delphi 错误no ftp list parsers have been registered
Delphi 利用thttpclient实现http异步下载
Delphi 把exe嵌入到自己的exe中。Delphi xe3
[Delphi] 计算目录大小的函数，获得目录文件列表，计算文件的大小
更多相关阅读请进入《Delphi》频道 >>
