[YVitaliy]

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

А какая функция получения координат? я не понял

Так ты же ее сам и описал:

Код:

1 2 3 4 5 6 7 8 9 10 11

function WndProc(Wnd:HWND;Msg,wParam,lParam:Integer):Integer;stdcall; var CPos:TPoint; begin     if msg=WM_LBUTTONDOWN then          begin           getCursorPos(CPos);           ScreenToClient(Wnd, CPos);           showmessage(inttostr(CPos.X)+', '+inttostr(CPos.Y) );            end; end;

Где Wnd - твое окно.

ЗЫ конечно еще есть
LOWORD(lParam);
HIWORD(lParam);
тоже должно действовать