Перемещение курсора.

← →
Б (2009-08-19 18:30) [0]

Procedure Moving(const Wnd: HWND; const x, y: integer); Var P: TPoint; begin P.x:= x; P.y:= y; ScreenToClient(Wnd, P); SetCursorPos(P.x, P.y); End;

SetCursorPos устанавливает позицию курсора относительно экрана, а как установаить её относительно заданного окна?
Moving(Handle, 10, 10) - устанавливает курсор в (0,0)

← →
Медвежонок Пятачок © (2009-08-19 18:40) [1]

function ScreenToClient(const Point: TPoint): TPoint;

← →
Б (2009-08-19 18:42) [2]

function ScreenToClient(hWnd: HWND; var lpPoint: TPoint): BOOL; stdcall;

← →
Медвежонок Пятачок © (2009-08-19 18:43) [3]

BOOL ScreenToClient(

HWND hWnd, // window handle for source coordinates
LPPOINT lpPoint // address of structure containing coordinates
);

хотя нет, там вар параметр.

значит поправка на лефт и топ окна

Перемещение курсора. Найти похожие ветки