«

»

فروردین
22
1383

برطرف كردن مشكل Wheel موس در دلفي

توسط صادق علوي زاده

حتما شما وقتي كه از يك سري كنترلهاي دلفي استفاده مي كنيد متوجه اين مشكل شديد كه Wheel موس درست كار نميكنه (مخصوصا در DBGrid). حال با اين روش كه ميگم مي تونيد اين مشكل رو در برنامه تون حل كنيد. 


اول يك كنترل 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;

این پست بدون برچسب است

پاسخ دهید

آدرس پست الکترونیکی شما منتشر نمی‌شود.

می‌توانید از این تگ‌های اچ‌تی‌ام‌ال استفاده کنید: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong> <font color="" face="" size=""> <span style="">