2。如何在DBGRID或者STRINGGRID中实现用滚轮进行翻页的功能

最新推荐文章于 2015-06-07 12:05:06 发布

caixiaoming

最新推荐文章于 2015-06-07 12:05:06 发布

阅读量755

点赞数

分类专栏： delphi数据库开发文章标签： up

本文链接：https://blog.csdn.net/caixiaoming/article/details/663886

版权

delphi数据库开发专栏收录该内容

2 篇文章 0 订阅

订阅专栏

DBGRID这么写，先加一个TApplicationEvents,
procedure  TForm1.ApplicationEvents1Message(var  Msg:  tagMSG;
var  Handled:  Boolean);
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;
stringgrid这么写
procedure  TForm1.ApplicationEvents1Message(var  Msg:  tagMSG;
var  Handled:  Boolean);
begin
if  (stringGrid1.Focused)  And  (Msg.message  =  WM_MOUSEWHEEL)  then
begin
if  Msg.wParam  >  0  then
SendMessage(stringGrid1.Handle,  WM_KEYDOWN,  VK_UP,  0)
else
SendMessage(stringGrid1.Handle,  WM_KEYDOWN,  VK_DOWN,  0);
Handled  :=  True;
end;
end;