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

[IIpopoK]

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

[Sazary]

Как-нибудь так:

procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit1.SelLength := length(RichEdit1.Text);
if RichEdit1.SelText[1]<>#13 then
 RichEdit1.SelText := #10+RichEdit1.SelText
else
 RichEdit1.SelText := #10+#13+RichEdit1.SelText;
end;

[IIpopoK]

Sazary, опишите плиз что тут что выполняет!?
и еще вопросик... как мне в эту новую строку вставить текст.. ведь курсор сбивается=( м?

[Sazary]

procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit1.SelLength := length(RichEdit1.Text); // выделяем все от текущей позиции и до конца
if RichEdit1.SelText[1]<>#13 then  
 RichEdit1.SelText := #10+RichEdit1.SelText  // заменяем выделенный текст на этот текст + возврат каретки
else
 RichEdit1.SelText := #10+#13+RichEdit1.SelText;  // то же самое, только еще + перевод строки
end;

Условие тут нужно, потому что я заметил, что если курсор находится в конце строки, то на новую строку не переводится. Поэтому приходится обрабатывать этот случай.

как мне в эту новую строку вставить текст.. ведь курсор сбивается=( м?

Просто перед этими манипуляциями сохраните позицию курсора:

k := RichEdit1.SelStart;

а после переноса, восстановите:
В общем:

procedure TForm1.Button1Click(Sender: TObject);
var k : integer;
begin
k := RichEdit1.SelStart;
RichEdit1.SelLength := length(RichEdit1.Text);
if RichEdit1.SelText[1]<>#13 then
 RichEdit1.SelText := #10+RichEdit1.SelText 
else
 RichEdit1.SelText := #10+#13+RichEdit1.SelText;  
RichEdit1.SelStart := k;
RichEdit1.SelLength := 0;
RichEdit1.SetFocus;
 end;

[IIpopoK]

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

procedure TForm1.Button1Click(Sender: TObject);
var k : integer;
begin
k := RichEdit1.SelStart;
RichEdit1.SelLength := length(RichEdit1.Text);
if RichEdit1.SelText[1]<>#13 then
 RichEdit1.SelText := #10+RichEdit1.SelText 
else
 RichEdit1.SelText := #10+#13+RichEdit1.SelText;  
RichEdit1.SelStart := k;
RichEdit1.SelLength := 0;
RichEdit1.SetFocus;
 end;

Спасибо большое! Изменил чуть-чуть это "RichEdit1.SelStart := k;" на "RichEdit1.SelStart := k+1;" и стало так как мне нужно...
Но после вставки 1-ой, 2-ой строк.. начитается не то что мне нужно..
начинай с 3-й вставки строки после нее начинает ставиться по строке в +1
Вот что получается:

10
10
10
10
10
{да(условие)}
пустая строка
пустая строка
пустая строка
пустая строка
пустая строка

т.е. как... после добовления 3-й строки добавляется 4-я строка с моим текстом и 5-я пустая строка(которая не нужна).
Как исправить(В принципе то правильно.. но мне не нравится то что каждый раз приходится убирать лишние пустые строки)?

[Sazary]

IIpopoK, хорошо б на код посмотреть ) А то так сложновато сказать.
Попробуйте просто вот так:

procedure TForm1.Button1Click(Sender: TObject);
var k : integer;
begin
k := RichEdit1.SelStart;
RichEdit1.SelLength := length(RichEdit1.Text);
RichEdit1.SelText := #13+RichEdit1.SelText 
RichEdit1.SelStart := k;
RichEdit1.SelLength := 0;
RichEdit1.SetFocus;
 end;

[IIpopoK]

procedure TInspectorForm.Button1Click(Sender: TObject);
var
    t,k:integer;
    mess:Word;
begin
if SpinEdit1.Value=3 then //если Процесс
begin
{Начало, проверка нажатой кнопки в меседж}
      mess:=Application.MessageBox('Куда поставить блок? В Да или Нет?','Внимание!',MB_YESNO+MB_ICONQUESTION);
          if mess=mrYes then // если нажата кнопка Yes
              begin
              SAR(Pcode.Richedit1,'{да(условие)}', InspectorForm.mText.Text); //функция поиска и вставки текста условия

k:=Pcode.RichEdit1.SelStart;
Pcode.RichEdit1.SelLength := length(Pcode.RichEdit1.Text);
if Pcode.RichEdit1.SelText[1]<>#13 then
 Pcode.RichEdit1.SelText := #10+Pcode.RichEdit1.SelText
else
 Pcode.RichEdit1.SelText := #10+#13+Pcode.RichEdit1.SelText;
Pcode.RichEdit1.SelStart := k+1;
Pcode.RichEdit1.SelLength := 0;
Pcode.RichEdit1.SetFocus;

SendMessage(Pcode.RichEdit1.Handle, EM_REPLACESEL, 0, integer(PCHAR('{да(условие)}')));//вставка текста в место где стоит курсор

              end;
          if mess=mrNo then // если нажата кнопка Yes
              begin
              SAR(Pcode.Richedit1,'{нет(условие)}', InspectorForm.mText.Text);//функция поиска и вставки текста условия
k:=Pcode.RichEdit1.SelStart;
Pcode.RichEdit1.SelLength := length(Pcode.RichEdit1.Text);
if Pcode.RichEdit1.SelText[1]<>#13 then
 Pcode.RichEdit1.SelText := #10+Pcode.RichEdit1.SelText
else
 Pcode.RichEdit1.SelText := #10+#13+Pcode.RichEdit1.SelText;
Pcode.RichEdit1.SelStart := k+1;
Pcode.RichEdit1.SelLength := 0;
Pcode.RichEdit1.SetFocus;
SendMessage(Pcode.RichEdit1.Handle, EM_REPLACESEL, 0, integer(PCHAR('{нет(условие)}')));//вставка текста в место где стоит курсор
              end;
{Конец, проверка нажатой кнопки в меседж}
end;

Вот код который я наколякал! попробовал вот это:

procedure TForm1.Button1Click(Sender: TObject);
var k : integer;
begin
k := RichEdit1.SelStart;
RichEdit1.SelLength := length(RichEdit1.Text);
RichEdit1.SelText := #13+RichEdit1.SelText 
RichEdit1.SelStart := k;
RichEdit1.SelLength := 0;
RichEdit1.SetFocus;
 end;

при "да" текст вставляется вместо курсора.. но не смещается вниз.. + к этому при повторном нажатии на "да" создается пустая строка, а текст добовляется в ту строку в которую добавлялся текст введенный первым!
(знаю.. обьяснять я не могу(((()

[Sazary]

Вот это не то, что нужно?

procedure TForm1.Button1Click(Sender: TObject);
var k : integer;
begin
k := RichEdit1.SelStart;
RichEdit1.SelLength := length(RichEdit1.Text);
RichEdit1.SelText := #13+RichEdit1.SelText;
RichEdit1.SelStart := k+1;
RichEdit1.SelLength := 0;
RichEdit1.SetFocus;

SendMessage(RichEdit1.Handle, EM_REPLACESEL, 0, integer(PCHAR('{нет(условие)}')));
 end;

[IIpopoK]

Если применять этот код то всеравно не так работает=((

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

Вот это не то, что нужно?

procedure TForm1.Button1Click(Sender: TObject);
var k : integer;
begin
k := RichEdit1.SelStart;
RichEdit1.SelLength := length(RichEdit1.Text);
RichEdit1.SelText := #13+RichEdit1.SelText;
RichEdit1.SelStart := k+1;
RichEdit1.SelLength := 0;
RichEdit1.SetFocus;

SendMessage(RichEdit1.Handle, EM_REPLACESEL, 0, integer(PCHAR('{нет(условие)}')));
 end;

в итоге выходит вот это

IF #14 THEN
Begin{Начало условия}
{да(условие)}
End;{Конец условия}
ELSE
Begin{Начало иначе}
10{нет(условие)} - (выделенный текст - это текст который должен был вставиться на новую строку)
End;{Конец иначе}

[Sazary]

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

Так вот когда нужно одно, а когда другое?