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

← →
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;

> Дмитрий К © (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.

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