新建一个类,继承IMessageFilter public class FormFilter : IMessageFilter { public bool PreFilterMessage(ref Message m) { if (m.Msg == 0x20A) return true; return false; } } 在需要禁用鼠标滚轮的窗体内加入下面的代码 FormFilter ff = new FormFilter(); Application.AddMessageFilter(ff)
如何让DbGrid支持鼠标滚轮滚动 在主窗体上加一个ApplicationEvents控件(控件在Additional面板中), 在它的OnMessage事件中加入下述代码,一切搞定-! procedure TFrm_main_usermanager.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); ..] of char; begin //给DBGrid加上鼠标滚轮 if Msg.message <> WM_M