Координаты мышки НЕ относительно формы

[Nowichok]

Всем привет !
На форме имеется основное меню + DbGrid + ещё прочее
Нужно знать координаты мышки относительно DbGrid'а и ссимулировать там нажатие кнопки мышки.
На данный момент делаю так

 var
  MyMouse: TMouse;
  x,y:integer;
begin
 x:=MyMouse.CursorPos.x;
 y:=MyMouse.CursorPos.y-44; //см. ниже
 sendmessage(GridMain.Handle, WM_LBUTTONDOWN, MK_LBUTTON, x + y shl 16);
 sendmessage(GridMain.Handle, WM_LBUTTONUP, MK_LBUTTON, x + y shl 16);
end;

Проблема в том, что получаю координаты относительно формы !! А высоту менюшки узнать нельзя. Пришлось на глаз измерять высоту в пикселях и писать

y:=MyMouse.CursorPos.y-44; //см. ниже

чтобы не сбились координаты относительно dbGrid'а.

Вроде работаеТ, но как-то некрасиво это.
Может можно узнать координаты сразу относительно DbGrid'а ??

[mihali4]

Может можно узнать координаты сразу относительно DbGrid'а ?

Для этого обработчик должен находиться внутри DbGridMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
Вот здесь X,Y - координаты относительно верхнего левого угла DbGrid. Х=0 - левая граница DbGrid, Y=0 - верхняя граница и т.д.
Это было нужно?

[Nowichok]

Сообщение от mihali4

Для этого обработчик должен находиться внутри DbGridMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
Вот здесь X,Y - координаты относительно верхнего левого угла DbGrid. Х=0 - левая граница DbGrid, Y=0 - верхняя граница и т.д.
Это было нужно?

Мне нужно знать коодринаты мышки припоявлении всплывающего меню, а не при движении по сетке.
А вообще решение уже нашёл :

 var
MyMouse: TMouse;
x,y:integer;
begin
x:=ScreenToClient(MyMouse.CursorPos).x;
y:=ScreenToClient(MyMouse.CursorPos).y;
....
end;

и получаю координаты относительно DbGrid'а !