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

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

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

Движение курсора мыши

Nils © (2002-07-21 17:58:00)
Hi ALL!
Есть ли у кого идеи о реализации такой фичи:
нужно в части окна дискретно двигать курсор мыши (с шагом 20 пикселей)
т.е. что бы курсор скакал!

Proton (2002-07-22 18:22:00) [1]
ooopps :)

Proton (2002-07-22 18:21:00) [2]
может имеет способ спрятать кусрсор cr:=crnone;
а по форме перемещать картинку с изображением курсора
image1.tramsparet := true;
with image1.picture.bitmap do
begin
width := 40;
height := 40;
drawicon(canvas.handel,screen.cursors[crdefault]) ;
end;
и потом по ним ориентироваться.
если не видимый курсор ближе к какой то оперделенной точке то перемещаем картинку
что бы не мигал можно поставить doublebuffered := true;

Proton (2002-07-22 18:21:00) [3]
может имеет способ спрятать кусрсор cr:=crnone;
а по форме перемещать картинку с изображением курсора
image1.tranparet := true;
with image1.picture.bitmap do
begin
width := 40;
height := 40;
drawicon(canvas.handel,screen.cursors[crdefault]) ;
end;
и потом по ним ориентироваться.
если не видимый курсор ближе к какой то оперделенной точке то перемещаем картинку
что бы не мигал можно поставить doublebuffered := true;

Acidy (2002-07-22 09:39:00) [4]
Берёшь сначала начальные коодинаты курсора (GetCursorPos), затем в OnMouseMove проверяешь, увеличились они или уменьшились по сравнению с начальными ... ну а дальше SetCursorPos в нужное место ...

Nils (2002-07-21 18:23:00) [5]
To ZZ
Это понятно! Наверное даже по OnMouseMove проверять
но связка GetCursorPos / SetCursorPos глючит
Я заморочился с условиями когда нужно делать SetCursorPos а когда нет

Anatoly Podgoretsky (2002-07-21 18:21:00) [6]
И не застрянь в одной позиции :-)

ZZ (2002-07-21 18:06:00) [7]
GetcursorPos SetCursorPos

Наверх

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