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

Вопрос по работе с мышью   Найти похожие ветки 

← →
Alexander666   (2003-06-18 22:06) [0]

Здравствуйте.
Как можно сделать так, чтобы мышь передвигалась с определенным интервалом. Ну, типа, как в АвтоКаде.

---

← →
N169   (2003-06-19 11:25) [1]

А там не мышь передвигается, а графический курсор в области редактирования. Сам указатель (мышиная стрелочка) в это время гасится.

---

← →
Alexander666   (2003-06-19 22:39) [2]

С курсором-то я знаю как, а вот если б мышь сделать...

---

← →
Diamond Cat ©   (2003-06-20 01:16) [3]

ну если чтоб мышь, тогда надо брать шаговый эл.движок, колесики и т.д. и собирать такой девайс, а зачем тебе такая мышь???
:о)

---

← →
Alexander666   (2003-06-20 17:54) [4]

Нужно, граф. редактор создаю.

---

← →
Diamond Cat ©   (2003-06-21 01:19) [5]

Ну чтонибудь типа
public
procedure m(var message:Tmessage);message wm_mousemove;
{ Public declarations }
end;
var
Form1: TForm1;
( var message:Tmessage) Ну чтонибудь типа
public
procedure m(var message:Tmessage);message wm_mousemove;
{ Public declarations }
end;
var
Form1: TForm1;
j:Tpoint;
implementation

{$R *.DFM}

procedure Tform1.m(var message:Tmessage);
var
i:Tpoint;
begin
i:=clienttoscreen(point(message.LParamLo,message.LParamHi));
caption:=inttostr(i.x)+"/"+inttostr(j.x);
inherited;
if j.x<>clienttoscreen(point(message.LParamLo,message.LParamHi)).x then begin
if j.x>i.x then
begin
setcursorpos(j.x-20,i.y);
j.x:=j.x-20;
end;
if j.x<i.x then begin
setcursorpos(j.x+10,i.y);
j.x:=j.x+10;
end;
end;
end;
end.
по вертикали сам доделаешь, и еще надо сделать нормальное вхождение на форму т.е. инициализацию j

---

← →
Alexander666   (2003-06-23 23:48) [6]

Спасибо, сча попробую

---

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

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



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