delphi 中得DBGRID实现鼠标滚动。
2007-06-20 13:12
337 查看
最近又开始写DELPHI程序了。。
偶尔找到一个 delphi 中得DBGRID实现鼠标滚动的一个例子感觉很不错。保存一下吧。呵呵
从Additional面板选择ApplicationEvents1控件
在onMessage事件里
procedure TFRedunDance.ApplicationEvents2Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if (DBGrid.Focused) And (Msg.message = WM_MOUSEWHEEL) then//确定当前活动得DBGrid。 begin
if Msg.wParam > 0 then
SendMessage(DBGrid.Handle, WM_KEYDOWN, VK_UP, 0)
else
SendMessage(DBGrid.Handle, WM_KEYDOWN, VK_DOWN, 0);
Handled := True;
end;
end;
偶尔找到一个 delphi 中得DBGRID实现鼠标滚动的一个例子感觉很不错。保存一下吧。呵呵
从Additional面板选择ApplicationEvents1控件
在onMessage事件里
procedure TFRedunDance.ApplicationEvents2Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if (DBGrid.Focused) And (Msg.message = WM_MOUSEWHEEL) then//确定当前活动得DBGrid。 begin
if Msg.wParam > 0 then
SendMessage(DBGrid.Handle, WM_KEYDOWN, VK_UP, 0)
else
SendMessage(DBGrid.Handle, WM_KEYDOWN, VK_DOWN, 0);
Handled := True;
end;
end;
相关文章推荐
- Delphi中的DBGrid如何实现使用鼠标滚轮上下滚动
- delphi中的DBGRid鼠标滚动事件
- ScrollViewer 中Listview 鼠标滚动实现
- jQuery实现响应鼠标滚动的动感菜单效果
- 给DBGrid添加鼠标滚动事件
- C# WinForm中Panel实现用鼠标操作滚动条
- delphi中 panel如何在Form实现鼠标移动拖放
- Delphi实现全局鼠标钩子
- 给DBGrid添加鼠标滚动事件
- js实现鼠标经过时图片滚动停止的方法
- 在DBGrid中实现鼠标滚轮的上下滚屏功能
- DBGrid支持鼠标滚轮滚动的解决办法
- C# panel控件实现鼠标滚轮滚动拖动滚动条
- Js实现双击鼠标自动滚动屏幕的示例代码
- css如何实现滚动条隐藏但鼠标仍然可以滚动
- 让Delphi的DBGrid支持鼠标轮
- Js实现双击鼠标自动滚动屏幕的示例代码
- 使用jQuery或者原生js实现鼠标滚动加载页面新数据
- 使用jQuery或者原生js实现鼠标滚动加载页面新数据