Определить координаты курсора

← →
igo (2004-02-26 20:28) [0]

Наверняка элементарно, но что-то заклинило меня.
Подскажет может кто, как определить координаты курсора от левого верхнего угла окна.
А суть такая: надо открыть некоторое popup меню в нужном месте, там где щелкнули, причем левой кнопкой.

← →
Islander (2004-02-26 20:35) [1]

var
MouseCoord: TPoint;
begin
GetCursorPos (MouseCoord)

← →
igo (2004-02-26 20:38) [2]

И еще дурацкий вопрос, извините.
Как TPoint разложить затем в X, Y окна программы?

← →
Islander (2004-02-26 20:49) [3]

MouseCoord.x-left
MouseCoord.y-Top

← →
igo (2004-02-26 21:00) [4]

Принято. Завтра испытаю.

ScreenToClient(MouseCoord)

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