Текущий архив: 2009.10.18;
Скачать: CL | DM;
Вниз
Перемещение курсора. Найти похожие ветки
← →
Б (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
);
← →
Медвежонок Пятачок © (2009-08-19 18:44) [4]хотя нет, там вар параметр.
значит поправка на лефт и топ окна
Страницы: 1 вся ветка
Текущий архив: 2009.10.18;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.013 c
