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

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

Наверх




Память: 0.47 MB
Время: 0.02 c
14-81921
RV_Raven
2003-07-28 20:49
2003.08.25
Можно ли с помощью Delphi отловить опасный HTML код до того как


1-81770
Miralex
2003-08-14 12:49
2003.08.25
Как програмно изменить имя у ячейки Treeview?


1-81775
Vlad
2003-08-14 11:49
2003.08.25
Обработка исключительных ситуаций в Delphi


6-81855
BJValentine
2003-06-17 16:28
2003.08.25
Сокеты Windows


1-81755
Fog
2003-08-08 23:01
2003.08.25
ПоЙИск Файлов???