最近又开始写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;