Изменение позиции курсора в RichEdit

[ProgDel]

Привет всем! Кто знает как менять позицию курсора в RichEdit c помощью TrackBar? Заранее спосибо. И ещё попрошу профессионалов не давать таких советов как - "разберись в исходнике программы X, или посети англоязычный сайт Y" английского я незнаю и не настолько крутой что бы разбирать исходники.

[mihali4]

Например, для перемещения по строкам:

procedure TForm1.RichEdit_MoveTo(LineNumber, CharNumber: Word);
begin
RichEdit1.SelStart := RichEdit1.Perform(EM_LINEINDEX, LineNumber, 0) + CharNumber;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
RichEdit_MoveTo(TrackBar1.Position,5);
Application.ProcessMessages;
RichEdit1.SetFocus;
end;

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

[ProgDel]

Благодарю за помощь. А как насчёт ситуации когда в Richedit ещё нет текста, а курсор с помощью trackbar установить надо? И что бы после нажатия Enter курсор становился в позицию указанную в trackbar?

18:58

Да и ещё. А как отмерять позицию курсора не в символах а в пикселах? И что может дать CaretPos?

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом.
Читаем правила. Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Уважайте форумчан, и они ответят вам взаимностью...
Модератор