Как такое осуществить?..

[DIgorevich]

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

var
  X, Y: LongInt;
begin
  Y := Memo1.Perform(EM_LINEFROMCHAR, Memo1.SelStart, 0);
  X := Memo1.Perform(EM_LINEINDEX, Y, 0);
  inc(Y);
  X := Memo1.SelStart - X + 1;
  Form1.Caption := 'X = ' + IntToStr(X) + ' : ' + 'Y = ' + IntToStr(Y);
end;

[MyLastHit]

Спасибо большое разобрался!

[DIgorevich]

ну поставь вышеуказанную процедуру на OnChange в Memo1;

procedure TForm1.Memo1Change(Sender: TObject);
var
  X, Y: LongInt;
begin
  Y := Memo1.Perform(EM_LINEFROMCHAR, Memo1.SelStart, 0);
  X := Memo1.Perform(EM_LINEINDEX, Y, 0);
  inc(Y);
  X := Memo1.SelStart - X + 1;
  Form1.Caption := 'X = ' + IntToStr(X) + ' : ' + 'Y = ' + IntToStr(Y);
end;

только этот код показывает позицию курсора (номер строки сверху и номер символа слева)

[DIgorevich]

А вообще, в Делфи есть очень хорошие демки на эту тему... посмотри папку Demos-RichEdit

[MyLastHit]

Огромное спасибо! а не подскажешь как из мемо(с включенным РидОнли) убрать мигающий текстовый навигатор? К примеру чтобы Мемо стала как Панель с возможностью Копи/паст.

[DIgorevich]

Чтобы, что-нибудь скопировать, надо сначала это выделить (либо программно указывать позицию, откуда и по куда копировать), а если не будет курсора, ничего и не выделишь.