[SAWaGE]

Подскажите как сделать, чтобы колесом мыши была прокрутка в DBGrid

[Dux]

//В разделе Public укажите:

Код:

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

//В разделе Implementation:

Код:

procedure TForm1.AppMessage(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;

// В файле проекта перед Application.Run запишите:

Код:

Application.OnMessage := Form1.AppMessage;

[SAWaGE]

Dux, большое спасибо, все работает!
Я вот только не пойму одного, у Михаила Фленова в его книге "Библия Делфи", в одном из примеров (на диске: Примеры/глава 14/Database 2), все это работает без единой строки кода. Так и не смог понять как у него это сделано.