Шаг перемещения мыши

← →
Dr. Well (2003-11-11 13:08) [0]

Господа, как можно реализовать шаговое перемещение мыши (типа как в AutoCAD"е)?

С Уважением Александр Яговдик.

← →
[lamer]Barmaglot © (2003-11-11 13:15) [1]

Как в AutoCAD это как? Если имеется в виду привязка к сетке, то перехватывать сообщения WM_MouseMove и если мышь перемешена на расстояние менее заданного тобой от последней точки, то возращать последнее положение точки.

← →
Skier © (2003-11-11 13:24) [2]

Примерно так :

function TSomeClass.AdjustXStep(const AXToAdjust: Integer): Integer; begin if oSnapToGrid in FOptions then Result := Round(AXToAdjust / FXStep) * FXStep else Result := AXToAdjust; end; function TSomeClass.AdjustYStep(const AYToAdjust: Integer): Integer; begin if oSnapToGrid in FOptions then Result := Round(AYToAdjust / FYStep) * FYStep else Result := AYToAdjust; end;

← →
Dr. Well (2003-11-11 13:49) [3]

это-то понятно..
Как сообщение отловить?
Я вешал это на MouseMove, но получается постоянное выполнение этого события, пока мышь не слиняет с формы...

← →
Skier © (2003-11-11 13:50) [4]

>Dr. Well (11.11.03 13:49) [3]

> Я вешал это на MouseMove, но получается постоянное выполнение
> этого события, пока мышь не слиняет с формы...

А тебе какая логика от MouseMove нужна ?

← →
Dr. Well (2003-11-11 14:04) [5]

Skier, дайте мне пожалуйста кусок кода, как это событие отловить, если есть или хотя бы приблизительно.

Можно просто поток сотворить и там работать через TMouse - проверить положение, изменить положение и т.д.

> Можно просто поток сотворить

Это ещё зачем ?

Шаг перемещения мыши Найти похожие ветки