Позиция курсора в заголовке

[NieL]

Как определить позицию курсора в заголовке формы.

[Arigato]

procedure TForm1.Timer1Timer(Sender: TObject);
var Pos: TPoint;
    X, Y: Integer;
begin
  GetCursorPos (Pos);
  X := Pos.X - Left;
  Y := Pos.Y - Top;
  Caption := 'X: ' + IntToStr (X) + '; Y: ' + IntToStr (Y);
end;

[mihali4]

Берете позицию курсора на экране и отнимаете координаты верхнего левого угла формы...

Опа, Arigato уже ответил...

Сюда же можно прикрутить всякое полезное - например, елозишь мышкой по экрану, а в лэйблах показывается имя окна, над которым в данный момент курсор, его капшен, ну и т.д.

[0nni]

GetWindowRect, ClientToScreen (для дочерних mdi-форм).