Определить позицию каретки
Приведенная ниже программа определяет координаты курсора memo. Аналогичный способ можно использовать и для RichEdit. (На форму необходимо кинуть компонент TIMER находится он на вкладке SYSTEM) procedure TForm1.Timer1Timer(Sender: TObject);var
row: integer;
begin
row := Memo1.Perform(EM_LINEFROMCHAR, Memo1.SelStart, 0);
Label1.Caption := 'x=' + IntToStr(Memo1.SelStart -
Memo1.Perform(EM_LINEINDEX, row, 0) + 1);
Label2.Caption := 'y=' + IntToStr(row + 1);
end;
