| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Перемещение курсора. [D6, XP]

Б ©   (2009-08-19 18:30:00) 


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:44:00) [1]

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

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

---

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

BOOL ScreenToClient(

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

---

Б   (2009-08-19 18:42:00) [3]

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

---

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

function ScreenToClient(const Point: TPoint): TPoint;

---

Наверх