PHP DM Gate v0.9 » Как определить в какую сторону крутится ролик мыши. <span class="vd">[Delphi]</span>

Nikfel © (12.10.07 13:09) [0]

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

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

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

<Цитата>
Nikfel © (12.10.07 18:30) [2]

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

<Цитата>
Nikfel © (12.10.07 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 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.

<Цитата>