delphi 让ScrollBox响应鼠标的滚动消息

本文整理自网络，侵删。

 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中让图片大小随timage控件大小变化

Delphi 处理之文本文件

Delphi 如何检测你的电脑日期或时间的变化

Delphi varchar和nvarchar区别

Delphi 2009 的反射单元(objauto):

ttreeview的两个事件ondragdrop、ondragover 实现自动拖放功能

Delphi 带密匙的字符串加密解密函数(支持中文)

Delphi 关闭rtti反射机制减少exe文件尺寸

Delphi 之 tmemo组件使用

Delphi 颜色表

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 让ScrollBox响应鼠标的滚动消息