mouse

← →
race1 (2002-12-28 15:47) [0]

как зделать что бы мышка передвигалась не свободно, а по какой-то прямой, линии, у которой известны начальные и конечные координаты? Например, линия такая - начальные координаты - 0, 0, конечные - 100, 100. мышка может быть на (100, 100), на (0, 0), но не сожет быть на (100, 50), на (50, 100)

← →
Кот Бегемот (2002-12-28 17:55) [1]

Как сделать-как сделать :-\
Насыпать на полу крошек по какой-то прямой, линии :)

WM_MOUSEMOVE обрабатывать конечно

← →
OxOTHuK (2002-12-28 23:20) [2]

ну типа Бегемот прав...
напишешь там что если x>?? то x:=100 (или что там у тебя)

← →
Diamond Cat (2002-12-29 04:23) [3]

бегемот предложил бегемотский способ есть куда более простые, а главное действенные методы к примеру
procedure TForm1.Button1Click(Sender: TObject);
var
r:Trect;
begin
with r do begin
Left:=0;
Top:=200;
Bottom:=201;
Right:=800;
end;
clipcursor(@r);
setcursorpos(1,200);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
clipcursor(nil);
end;
с наступающим

← →
Юрий Зотов (2002-12-29 10:31) [4]

> Diamond Cat © (29.12.02 04:23)

И что? Мышь будет свободно двигаться в пределах прямоугольника, а вовсе не по линии, как требовалось.

Для этой задачи СlipСursor годится только для вертикальных или горизонтальных линий. Для наклонных же нужно задать область минимального размера и все время ее перестраивать. То есть, все равно придется отслеживать движение мыши - а тогда к чему этот огород, если проще использовать SetCursorPos?

← →
myor (2002-12-29 10:44) [5]

> Diamond Cat © (29.12.02 04:23)
> бегемот предложил бегемотский способ есть куда более простые,
> а главное действенные методы к примеру
> procedure TForm1.Button1Click(Sender: TObject);
> var

а может лучше просто обрабатывать mousemove и устанавливать курсор setcursorpos?

mouse Найти похожие ветки