| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

движение [Delphi, Windows]

ogo ©   (2002-12-17 12:45:00) 

народ подскажите как связать движение объекта с перемещением мыши. На API уровне.

---

Mirovodin   (2002-12-17 13:23:00) [1]

Обрабатывать сообщение WM_MOUSEMOVE при этом в wParam содержится инфо-я о удержании клавиш (Ctrl, Shift и т.д.) а в lParam X и Y координаты.

Так же обрабатывай WM_LBUTTONDOWN и/или WM_RBUTTONDOWN параметры сообщения те же.

---

паша2   (2002-12-17 13:21:00) [2]

var
cpos,ncpos : TPoint;

...

GetCursorPos(ncpos);
an := an + (cpos.x - ncpos.x)/7; {/7 - чтобы медленнее менялся угол}
GetCursorPos(cpos);
if (cpos.x >= 320+1) or (cpos.x <= 320-1) then cpos.x := 320;
SetCursorPos(cpos.x,cpos.y);

---

Наверх