Корректная работа при работе с колесиком мышки в TDBGrid

Delphi , Компоненты и Классы , TDBGrid

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

{....}

 public
   procedure AppMessage(var Msg: TMsg; var Handled: Boolean);

      {....}



 procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
 var
   i: SmallInt;
 begin
   {Mouse wheel behaves strangely with dgbgrids - this proc sorts this out}
   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;



   // Und im Projekt Source: 
  // And in the project source: 

{....}

 Application.OnMessage := Form1.AppMessage;

 {....}

Статья Корректная работа при работе с колесиком мышки в TDBGrid раздела Компоненты и Классы TDBGrid может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: 2011-09-02 23:57:19 :: re:Корректная работа при работе с колесиком мышки в TDBGrid

пользователь: Наталья.

Добрый день, спасибо огромнейшее за подобранный материал, очень помогает в работе!!!!!!!!! На этом сайте нахожу в доступном и удобном виде ответы на вопросы, над которыми приходилось биться по несколько дней.

:: Главная :: TDBGrid ::