如何在DBGRID或者STRINGGRID中實現用滾輪進行翻頁的功能，就象瀏覽網頁一樣

2019-11-18 18:04:48

字體：大中小

來源：轉載

供稿：網友

你先在窗體上放一個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);
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;

上一篇：黑白圖像的縮小灰度級顯示算法的編寫

下一篇：在winnt以上版本中對打印機紙張的動態設置方法