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

最新推荐文章于 2021-12-28 10:01:08 发布

转载最新推荐文章于 2021-12-28 10:01:08 发布 · 1.2k 阅读

标签

#delphi #up

本文介绍如何在 Delphi 中使用 TApplicationEvents 控件处理 WM_MOUSEWHEEL 消息，使 DBGrid 和 StringGrid 能够通过鼠标滚轮进行滚动。此方法适用于需要定制网格控件滚动行为的应用场景。

你先在窗体上放一个TApplicationEvents控件（Delphi自带的）,找到WmMouseWheelMessage事件。

下面是我实现的（这个用的是键盘的上下按键消息，你也可以改成滚动条消息）。

procedure TMainForm.WmMouseWheelMessage(var Msg: tagMSG;
var Handled: Boolean);
begin
if (DBGrid.Focused) And (Msg.message = WM_MOUSEWHEEL) then
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;
-------------------------------------------------------------------------
问题解决，特别感谢barely(一哥)
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);