delphi DBgrid 数据随着鼠标滚动而滚动!
来源:互联网 发布:js 当前时间减去2小时 编辑:程序博客网 时间:2024/06/08 20:01
首先要在窗体放一个ApplicationEvents控件,在onApplicationEvents 事件中加入以下代码(第一法:只对指定名的控制起作用,第二个对类起作用)
begin
if (DBGrid1.Focused) And (Msg.message = WM_MOUSEWHEEL) then
begin
if Msg.wParam > 0 then
SendMessage(DBGrid1.Handle, WM_KEYDOWN, VK_UP, 0)
else
SendMessage(DBGrid1.Handle, WM_KEYDOWN, VK_DOWN, 0);
Handled := True;
end;
end;
————————————————————————————————————————————————————————
方法二:
//给DBGrid加上鼠标滚轮
var hWnd: THandle; aName: array [0..255] of char;
begin
if Msg.message <> WM_MOUSEWHEEL then exit;
hWnd := WindowFromPoint(msg.pt);
if boolean(GetClassName(hWnd, aName, 256))and(aName='TDBGrid') then//如果第三方控件需要修改,比如用aName='TbsSkinDBGrid'
begin
if Short(HIWORD(Msg.wParam)) < 0 then
begin
PostMessage(hWnd, WM_KEYDOWN, VK_DOWN, 0);
PostMessage(hWnd, WM_KEYUP, VK_DOWN, 0)
end
else
begin
PostMessage(hWnd, WM_KEYDOWN, VK_UP, 0);
PostMessage(hWnd, WM_KEYUP, VK_UP, 0);
end;
Handled := true;
end;
end;
- delphi DBgrid 数据随着鼠标滚动而滚动!
- delphi DBgrid 数据随着鼠标滚动而滚动!
- delphi中dbgrid中数据随鼠标滚轮滚动
- delphi 中得DBGRID实现鼠标滚动。
- delphi中的DBGRid鼠标滚动事件
- dbgrid鼠标滚动事件
- Delphi中的DBGrid如何实现使用鼠标滚轮上下滚动
- DBGrid加鼠标滚轮滚动
- 给DBGrid添加鼠标滚动事件
- 给DBGrid添加鼠标滚动事件
- 如何让DbGrid支持鼠标滚轮滚动
- 给DBGrid添加鼠标滚动事件
- 给DBGrid添加鼠标滚动事件
- DBGrid支持鼠标滚轮滚动的解决办法
- DBGrid支持鼠标滚轮滚动的解决办法
- flex布局-随鼠标滚动而滚动
- opencv c++ 滚动条随着视频播放而滚动
- [愿创]让DBGrid支持鼠标滚轮浏览数据,及去除垂直滚动条!
- 最精简的小写金额转大写的函数
- 只允许运行一个实例的三种方法
- Delphi 去掉MDI窗口的滚动条
- Delphi Excel 操作大全
- delphi 把窗体上的所有EDIT清空
- delphi DBgrid 数据随着鼠标滚动而滚动!
- 安卓开发06:布局-线性布局 LinearLayout
- Java学习笔记-0624
- 判断窗体是否创建,没有则创建后显示
- VB中的DoEvents命令,在Delphi中与其对应命令
- delphi 中进度条控件常用到的属性
- 用sql进行表的插入数据行,空白行,删除行,修改行
- Ehlib 在 Delphi 7 中的安装(dbgrideh)
- DBGridEh设置固定列,用于统计记录数和平均数、总和