[d1sable]

Ребят, как получить кординаты мыши - относительно формы а не экрана

Вот вам кусок кода - что надо исправить?

Код:

LabelX.Caption := IntToStr(YXMOUSE.CursorPos.x);
LabelY.Caption := IntToStr(YXMOUSE.CursorPos.y);

[robt]

OnMouseMove

[M.A.D.M.A.N.]

ScreenToClient & ClientToScreen.

[NumLock]

Код:

var
  CursorPos: TPoint;
begin
  GetCursorPos(CursorPos);
  Windows.ScreenToClient(Handle, CursorPos);
  Caption:=IntToStr(CursorPos.X)+' / '+IntToStr(CursorPos.Y);
end;