движение

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

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

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

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