Как отследить направление движения мыши?

[yourself]

Вот думал я, думал над этой задачей... Ничего не могу придумать. У меня основная проблема - с точки зрения машины, движение мышки - дискретное явление... На событие OnMouseMove не получится приклеить вычисления координат... Давайте вместе подумаем, что можно использовать? Гугл подсказок не дал

[TaTT DoGG]

а что ты используешь для определения координат мыши?

[B_N]

http://programmersforum.ru/showthread.php?t=19680

[TaTT DoGG]

создаешь метод для формы OnMouseMove и пишешь туда:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
begin
Label1.Caption:='X: '+inttostr(x);
Label2.Caption:='Y: '+inttostr(y);
end;

[mutabor]

Явление то дискретное, но память то есть у машины. Вот тебе и ответ.
Сравнивай предыдущее положение с текущим и получишь "курс" )
Если нужен длинный след для анализа, можно и его запомнить а обнулять когда мышь стоит какое-то определенное время.

[yourself]

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

[mutabor]

Все можно сделать, но я не совсем понимаю что именно надо.
Какое нужно направление, в самом простом понимании то есть вверх, вниз, влево, вправо, или же курс от 0 до 360°, или может мышиные жесты?

Простой случай, влево вправо

var
PrevX, PrevY: integer;

procedure MouseMove
begin
if x > prevX then ... //значит курсор сместился влево
if y > prevY then //вниз и т.д.
prevX:=x;
prevY:=y;
end;

[Трофимов Александр]

Запоминаешь предыдущие координаты Х У и угол движения или две предыдущие координаты. При движении мышки определяешь используя предыдущую координату, угол движения в плоскости(геометрия). Сравниваешь с предыдущим углом направления движения. Учти, что пользователь точно мышкой угол соблюсти не сможет, поэтому для сравнения используй интервал с заданной погрешностью.

[Stilet]

Обсуждалось
Ответ да точный (см B_N & Mutabor)
На гугл не греши.

Закрыто.