مشكل در حركت نكردن اسكرول در DBGrid

[سيد مجتبي هاشمي]

با سلام و تبريك سال نو به همه دوستان عزيز.
سوالم در مورد dbgrid ااين هست كه وقتي اطلاعاتي رو از بانك ميخونم و در dbgrid نمايش ميدم با حركت دادن دكمه وسط موس اسكرول مربوط به dbgrid حركت نميكنه. ميخواستم راهنمايي كنيد كه بايد چه طور اين مشكل رو حل كنم؟

[fire.angle]

یه ApplicationEvent از سربرگ Additional به فرم اضافه کن و در رویداد On Message اون کد زیر رو قرار بده

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;