Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Вопрос по работе с мышью

Alexander666 © (2003-06-18 22:06:00)

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

Alexander666 (2003-06-23 23:48:00) [1]

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

Diamond Cat (2003-06-21 01:19:00) [2]
Ну чтонибудь типа
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-20 17:54:00) [3]

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

Diamond Cat (2003-06-20 01:16:00) [4]

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

Alexander666 (2003-06-19 22:39:00) [5]

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

N169 (2003-06-19 11:25:00) [6]

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »