Координаты текстового курсора

[DeKot]

Как определить координаты текстового курсора (не позицию) в компоненте Edit или Memo в привязке к компоненту или к форме (без разницы)
Поиск приводит именно к позиции курсора, мне надо координаты в пикселях.

[Granus]

CaretPos, только он работает не так как надо)
поищи, уже была такая тема, там через WinAPI делали

[KORN]

http://www.rsdn.ru/Forum/message/141904.flat.aspx

а если так7

[Granus]

ну впринципе х)
просто через апи будет как то...правильней))
хотя я бы сделал ка там

[DeKot]

Спасибо KORN за ссылочку.Разобрался. Вот что получилось :

procedure TForm1.Timer1Timer(Sender: TObject);
var
 p: TPoint;
begin
  GetCaretPos(p);
  // выводит в заголовок формы координаты в области Edit
  Form1.Caption := '       x=' + IntToStr(p.x) + '      y=' + IntToStr(p.y);
  // координаты в пределах формы
  XC:=Edit1.Left + p.x; YC:=Edit1.Top + p.Y;//  ХС,YC глобальные integer
end;