[AlexandrV]

вот код записи координат курсора

Код:

Form1.ListBox2.Items.Add('X = '+IntToStr(Form1.RichEdit1.CaretPos.X)+';Y = '+IntToStr(Form1.RichEdit1.CaretPos.Y));

А как их присвоить ричу тоесть изменить у рича

[Mrak]

top-left ?

[Alegun]

Код:

with RichEdit1 do
  begin
   SelStart:= Perform(EM_LineIndex, 2 {line}, 0) + 5 {char};
   Perform(EM_ScrollCaret, 0, 0); // скроллинг к позиции каретки
   SetFocus;
  end; //Drkb: 00567

З.Ы. Увж. AlexandrV, скачайте пжлст к себе на диск базу знаний DRKB, там есть решения для всех ваших последующих вопросов

[AlexandrV]

Я спросил как назад ричу присвоить координаты. Этот код работает идеально

Код:

Form1.ListBox2.Items.Add('X = '+IntToStr(Form1.RichEdit1.CaretPos.X)+';Y = '+IntToStr(Form1.RichEdit1.CaretPos.Y));