...

   

      If msg.wParam>0 then

       ...
[/quote]
البته بهتره از کد به صورت زیر استفاده بشه. چون تابعHiword مقدار cardinal برمیگردونه که همیشه مثبته