delphi中的DBGRid鼠标滚动事件
2010-01-22 17:09
309 查看
Procedure OnMouseWheel(Var Msg :TMsg;var Handled:Boolean);
begin
if Msg.message = WM_MouseWheel then
begin
if Msg.wParam > 0 then
begin
if DBGrid.Focused then
begin
SendMessage(DBGrid1.Handle,WM_KEYDOWN,VK_UP,0);
end;
end
else
begin
if DBGrid.Focused then
SendMessage(DBGrid1.Handle,WM_KEYDOWN,VK_DOWN,0);
end;
Handled:= True;
end;
end;
需要在Form创建的时候写入
Application.OnMessage:=OnMouseWheel; // 截获鼠标滚动事件
begin
if Msg.message = WM_MouseWheel then
begin
if Msg.wParam > 0 then
begin
if DBGrid.Focused then
begin
SendMessage(DBGrid1.Handle,WM_KEYDOWN,VK_UP,0);
end;
end
else
begin
if DBGrid.Focused then
SendMessage(DBGrid1.Handle,WM_KEYDOWN,VK_DOWN,0);
end;
Handled:= True;
end;
end;
需要在Form创建的时候写入
Application.OnMessage:=OnMouseWheel; // 截获鼠标滚动事件
相关文章推荐
- delphi 中得DBGRID实现鼠标滚动。
- 给DBGrid添加鼠标滚动事件
- Delphi中的DBGrid如何实现使用鼠标滚轮上下滚动
- dbgrid鼠标滚动事件
- 在Delphi中DBGrid有一个MouseMove事件,当鼠标移动时怎么知道光标在哪个单元格上面
- 给DBGrid添加鼠标滚动事件
- 给DBGrid添加鼠标滚动事件
- 给DBGrid添加鼠标滚动事件
- 给DBGrid添加鼠标滚动事件
- Silverlight 3.0 RTW引入-- 鼠标滚动事件
- javascript鼠标滚动事件中出现的问题
- 鼠标滚动事件
- JS鼠标滚动事件
- 鼠标滚动:mousewheel事件在Firefox采用DOMMouseScroll事件的统一处理
- C# 鼠标滚动事件比例缩放图片
- TDBGrid增加鼠标滚动事件
- 锁定当前div的鼠标滚动事件
- delphi向另一程序窗口某处发送鼠标事件所用的工具
- 【转】C#Panel鼠标滚动事件
- 鼠标滚动事件