Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.009 c
2-1250700077
Lex_okha
2009-08-19 20:41
2009.10.18
Помогите решить проблему


15-1250522854
TUser
2009-08-17 19:27
2009.10.18
Акция в Эльдорадо


15-1250675891
Yurikon
2009-08-19 13:58
2009.10.18
Контроль за использованием памяти


15-1250581293
@!!ex
2009-08-18 11:41
2009.10.18
Как растянуть окно VBox на весь экран?


6-1207054869
SpellCaster
2008-04-01 17:01
2009.10.18
Асинхронные сокеты "забивают" очередь сообщений