如何在TDBGrid控件中正确的使用鼠标滚轮

时间:2010-03-07 14:01:26  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:Application 控件放到窗体上~~~~~~~~~~~~~~~~~~~~~~~~~procedure Application1.OnMessage(var Msg: TMsg; var Handled: Boolean) ;vari: SmallInt;begin &nb...
  正文:Mouse wheel behaves strangely with dbgrids - this code handler will correct this behavior.
鼠标中轮在TDBGrid控件中总是工作的很奇怪-这段代码将能改正这个错误。

Just drop a TApplication component on a form
你只要将一个TApplication 控件放到窗体上

~~~~~~~~~~~~~~~~~~~~~~~~~


procedure Application1.OnMessage
(var Msg: TMsg; var Handled: Boolean) ;
var
i: SmallInt;
begin
  if Msg.message = WM_MOUSEWHEEL then
  begin
    Msg.message := WM_KEYDOWN;
    Msg.lParam := 0;
    i := Hiword(Msg.wParam) ;
    if i > 0 then
    Msg.wParam := VK_UP
    else
    Msg.wParam := VK_DOWN;
    
    Handled := False;
  end;
end;

"如何在TDBGrid控件中正确的使用鼠标滚轮"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/13115.html


关键字:

关于《如何在TDBGrid控件中正确的使用鼠标滚轮》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td