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

Как определить в какую сторону крутится ролик мыши.   Найти похожие ветки 

← →
Nikfel ©   (2007-10-12 13:09) [0]

Подскажите пожалуйста. Как узнать вверх или в низ крутится ролик мыши. Наверно надо задавать KOLForm1MouseWheel, но тогда как проверить в какую сторону повернули ролик.

---

← →
Дмитрий К ©   (2007-10-12 13:27) [1]

procedure TForm1.KOLForm1MouseWheel(Sender: PControl;
 var Mouse: TMouseEventData);
begin
 form.Caption := int2str(Mouse.Shift);
end;

---

← →
Nikfel ©   (2007-10-12 18:30) [2]

Спасибо. Попробую.

---

← →
Nikfel ©   (2007-10-12 19:05) [3]

Проверьте правильно ли написал, вроде работает.
procedure TForm1.KOLForm1MouseWheel(Sender: PControl;
 var Mouse: TMouseEventData);
begin
if integer(Mouse.Shift)>0 then begin
//Прокрутка вверх
//код
end else
if integer(Mouse.Shift)<0 then begin
//Прокрутка вниз
//код
end;
end;

---

← →
Дмитрий К ©   (2007-10-12 19:48) [4]

> Дмитрий К ©   (12.10.07 13:27) [1]

Поправляюсь.
procedure TForm1.KOLForm1MouseWheel(Sender: PControl;
 var Mouse: TMouseEventData);
var zDelta: SmallInt;
begin
 zDelta := HiWord(Mouse.Shift);
 if zDelta < 0 then
   //прокрутка вниз
 else
   //прокрутка вверх
end;
Также смотри описание TMouseEventData в KOL.pas и WM_MOUSEWHEEL в Windows SDK.

---

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

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



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