Скачать: CL | DM;

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

← →
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, дайте мне пожалуйста кусок кода, как это событие отловить, если есть или хотя бы приблизительно.

---

← →
TUser ©   (2003-11-11 15:07) [6]

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

---

← →
Skier ©   (2003-11-11 15:10) [7]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.029 c