Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.11.20;
Скачать: 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 вся ветка

Текущий архив: 2003.11.20;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.019 c
3-65720
gestern
2003-11-02 15:38
2003.11.20
Застрял


3-65703
SasaR
2003-10-30 10:39
2003.11.20
Yaffi Personal


14-66070
Johnny Smith
2003-10-30 09:58
2003.11.20
Вопрос хозяевам: не с вашего ли ведома столько клонов поползло?


14-66124
KoSt1
2003-10-28 18:05
2003.11.20
пароли


3-65775
F...
2003-10-27 05:46
2003.11.20
Многопользовательский доступ к dbf из программ на Delphi