Снять координаты курсора

← →
alexdn © (2011-07-20 02:33) [0]

Нужно снять координаты курсора,
GetCursorPos(foo); ShowMessage("(" + IntToStr(foo.X) + " ," + IntToStr(foo.Y) + ")");
нужно по двойному/одинарному клику мышки на рабочем столе, но что то не соображу к какому событию это привязать..

← →
alexdn © (2011-07-20 02:54) [1]

т.е. если делаешь onMouseDown то это идёт как TForm1.FormMouseDown, т.е. снимаются координаты именно курсора на форме.. как бы отвязаться, чтобы снять именно произвольные координаты с рабочего стола..

← →
Andy BitOff © (2011-07-20 03:00) [2]

Преобразовать. Чего-там ClientToScreen, ScreenToClient и иже с ними

← →
alexdn © (2011-07-20 03:20) [3]

> Andy BitOff © (20.07.11 03:00) [2]
да, делаешь так
ClientToScreen(foo); ShowMessage("(" + IntToStr(foo.X) + " ," + IntToStr(foo.Y) + ")");
выдаёт уже координаты абсолютные, но опять же если делаешь onMouseDown, то выдаёт только по клику на форме..

← →
alexdn © (2011-07-20 03:22) [4]

т.е. к какому событию мне привязаться..? может немножко торможу, просто впервые такая ситуация..

← →
MonoLife © (2011-07-20 07:11) [5]

> клику мышки на рабочем столе
> ...если делаешь onMouseDown..

имхо, к форме, наверное, уже не привяжешь..
мож, хук на мышу?

← →
ixen (2011-07-22 12:34) [7]

Unit

Controls(Windows-only components) or QFormss(cross-platform)

Category

mouse handling utilities

Delphi syntax:

var Mouse: TMouse;

C++ syntax:

extern PACKAGE TMouse* Mouse;

Description

Use Mouse to get information about the system’s mouse, including which window (if any) has captured the mouse, the position of the mouse, and mouse settings from the Control panel. Mouse can also be used to specify global aspects of how your application responds to mouse messages, such as how much the user must move the mouse to start a drag operation.

Снять координаты курсора Найти похожие ветки