Сообщество Чайников

Вопрос

Как проверить условие: если колесико мыши крутится вниз, то…

Ответ

Для Delphi 5+ посмотри события TForm.OnMouseWheelDown, OnMouseWheelUp В другом случае попробуй так:

TForm1 = class(TForm) //… private procedure WMMouseWheel(var Msg: TWMMouseWheel); message WM_MOUSEWHEEL; end; procedure TForm1.WMMouseWheel(var Msg: TWMMouseWheel); begin if Msg.WheelDelta>0 then Windows.Beep(500, 100) else Windows.Beep(1500, 100); end;

Из конференции Expert_FAQ