Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

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

Nikfel © (2007-10-12 13:09:00)
Подскажите пожалуйста. Как узнать вверх или в низ крутится ролик мыши. Наверно надо задавать KOLForm1MouseWheel, но тогда как проверить в какую сторону повернули ролик.

Дмитрий К (2007-10-12 19:48:00) [1]

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

Nikfel (2007-10-12 19:05:00) [2]
Проверьте правильно ли написал, вроде работает.
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;

Nikfel (2007-10-12 18:30:00) [3]
Спасибо. Попробую.

Дмитрий К (2007-10-12 13:27:00) [4]
procedure TForm1.KOLForm1MouseWheel(Sender: PControl;
var Mouse: TMouseEventData);
begin
form.Caption := int2str(Mouse.Shift);
end;

Наверх

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