| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Колесо мыши [D7, WinXP]

Саня ©   (2004-09-03 05:45:00) 

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

---

Rem   (2004-09-03 08:11:00) [1]

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

// В 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;

---

КаПиБаРа   (2004-09-03 06:32:00) [2]

F1 - WM_MOUSEWHEEL


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


---

Наверх