Перемещение на следующую строку в RichEdit, как??

[IIpopoK]

Сообщение от Sazary

Очень странно. А где у вас находится курсор при первом клике?
Попробовал свой вариант и DomiNick'а. Оба работают.. Все переносится..

я просто сам не пойму в чем дело!=(
ИЗВИНЯЮСЬ! все Отлично работает! Стабильной работе кода мешал цыкл подсветки синтаксиса.(парни, у кого есть нормальная подсветка синтаксиса Pascal????)
вот(курсор стоит после выделенного слова):

[Sazary]

вот(курсор стоит после выделенного слова):

Смоделировал у себя. Это вы мой вариант используете? Если курсор после слова, то используйте вариант DomiNick:

SendMessage(RichEdit1.Handle, EM_REPLACESEL, 0, integer(PCHAR(#13+'Десять')));

[DomiNick]

Чтот я совсем запутался...

Как мне программно перейти на новую строку с того места где стоит курсор, чтобы все после идущие строки сдвинулись ниже?
(подобно нажатию кнопки "Enter"!)

Это-то просто:

Procedure TForm1.SpeedButton1Click(Sender: TObject);
Begin
RichEdit1.SelText:=#13+#10; // абсолютно идентично нажатию <Enter>
End;

Ну вот придумал ещё такое - может подойдёт:

Procedure TForm1.SpeedButton2Click(Sender: TObject);
Var S: String;
Begin
S:='MyText';
If (RichEdit1.Text[RichEdit1.SelStart+1]=#13) Or (RichEdit1.SelStart=Length(RichEdit1.Lines.Text)-2) Then
      SendMessage(RichEdit1.Handle, EM_REPLACESEL, 0, integer(PCHAR(#13+#10+S)))
Else
      If (RichEdit1.Text[RichEdit1.SelStart]=#10) Or (RichEdit1.SelStart=0) Then
            SendMessage(RichEdit1.Handle, EM_REPLACESEL, 0, integer(PCHAR(S+#13+#10)))
      Else
            SendMessage(RichEdit1.Handle, EM_REPLACESEL, 0, integer(PCHAR(#13+#10+S+#13+#10)));
End;

у кого есть нормальная подсветка синтаксиса Pascal?

Это как..? Готовый компонент чтоли?

[IIpopoK]

Парни! я уже сделал перенос строки вот этим кодом:

SendMessage(RichEdit1.Handle, EM_REPLACESEL, 0, integer(PCHAR(#13+'Текст')));

а то что я писал, что он не верно работает - это был мой цикл подсветки синтаксиса который мешал правильной работе этого кода! вот! спасибо вам!
---------

Это как..? Готовый компонент чтоли?

Нет.... просто обычный скрипт(код) с помощью которого можно подсветить(перекрасить) операторы(Операторы Pascal).
Чтоб примерно так было:

If a>b Then
c:=a
Else
d:=b;
end;

[DomiNick]

просто обычный скрипт(код)

Скрипт? JavaScript для Html-страницы?

А если в RichEdit - то просто ищешь слово и изменяешь атрибуты...