Текущий архив: 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.015 c