摘要：
应用组件：ApplicationEvents（组件位置：delphi7->additional->ApplicationEvents）procedureTfrmmain.ApplicationEvents1Message(varMsg:tagMSG;varHandled:Boolean);beginif(DBGrid1.Focused)And(Msg.message=WM_MOUSEWHEEL)thenbeginifMsg.wParam>0thenSendMessage(DBGrid1.Handle,WM_KEYDOWN,VK_UP,0)elseSendMessage(DBG 阅读全文