Координаты мышы по отношению к форме

[W0LF]

Как узнать координаты мышы (не по экрану), а по отношению к форме. Что бы вверхний левый угол формы был (0;0) и т.д. Вообщем координатное поле (вместо монитора - форма)...

[0nni]

У всех оконных компонентов есть мотод ScreenToClient, он преобразует экранные координаты в координаты клиентской части окна.

[spamer]

Вроде оно:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Caption := 'x=' + IntToStr(x) + 'y=' + IntToStr(y);
end;