Скачать: CL | DM;

Колесо мыши   Найти похожие ветки 

← →
Саня   (2004-09-03 05:45) [0]

Привет, Мастера. Подскажите можно ли как-то отследить события прокпутки колеса мыши вверх-вниз? Заранее благодарен.

---

← →
КаПиБаРа ©   (2004-09-03 06:32) [1]

F1 - WM_MOUSEWHEEL


==================================================
Прежде чем делать открытие — загляни в справочник.
(с) Козьма Прутков - инженер
==================================================


---

← →
Rem   (2004-09-03 08:11) [2]

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

// В Delphi5 и выше можно использовать события
// OnMouseWheelDown и OnMouseWheelUp
// В другом случае попробуй так:

type
 TForm1 = class(TForm)
   Button1: TButton;
 private
   { Private declarations }
   procedure WMMouseWheel(var Msg: TWMMouseWheel); message WM_MOUSEWHEEL;
 public
   { Public declarations }
 end;

procedure TForm1.WMMouseWheel(var Msg: TWMMouseWheel);
begin
  if Msg.WheelDelta > 0 then
  begin
     Caption := "Вверх";
     Windows.Beep( 500, 100 );
  end
  else
  begin
     Caption := "Вниз";
     Windows.Beep( 1500, 100 );
  end;
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c