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

Вниз

движение   Найти похожие ветки 

← →
ogo ©   (2002-12-17 12:45) [0]

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

---

← →
паша2   (2002-12-17 13:21) [1]

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);

---

← →
Mirovodin ©   (2002-12-17 13:23) [2]

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

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

---

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

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

Наверх

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