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 获得用android应用程序触摸到的位置(坐标)的方法

Delphi通过解析搜狐网页来获取天气的函数

Delphi hex 相关单元

Delphi 把exe可执行文件等作为资源包含在Delphi编译文件中

Delphi 常用api 函数

Delphi把流中的字符串转换为utf格式

Delphi程序删除自己

Delphi xe10 对 json的解析应用

Delphi动态创建tadoquery加access出现'不正常的定义参数对象 提供了不一致或不完整的信息'错误

[Delphi]钩子(hook)机制的使用

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...