2011年9月13日
delphi dbgrid支持鼠标滚动浏览
摘要： 应用组件：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 阅读全文
posted @ 2011-09-13 10:01 柠檬绿松 阅读(1591) 评论(0) 推荐(0)
View Code