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

[IIpopoK]

В общем при нажатии на кнопку, в RichEdit должно вестись допустим слово - "Десять".
пример:

50
50
50
Десять
50
50

если нажать повторно, то должно выйти вот так:

50
50
50
Десять
Десять
50
50

вот!
А при использовании написанного выше кода происходит следующее.
при 1-м клике на кнопку:

50
50
50
Десять
50
50

При 2-м клике на кнопку:

50
50
50
Десять
Десять

50
50

При 3-м клике на кнопку:

50
50
50
Десять
Десять
Десять


50
50

и т.д.

[DomiNick]

А при использовании написанного выше кода происходит следующее.

Которого именно..? Там их уже много разных накопилось...

Скорее всего добавляется лишнее "#10" или "#13"...

[Sazary]

Эм.. Может, тогда просто:

procedure TForm1.Button1Click(Sender: TObject);
var k : integer;
begin
SendMessage(RichEdit1.Handle, EM_REPLACESEL, 0, integer(PCHAR('Десять'+#13)));
end;

?

[IIpopoK]

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

Которого именно..? Там их уже много разных накопилось...

Скорее всего добавляется лишнее "#10" или "#13"...

вот этого:

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;

---------------------------------------------------------------------------------

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

Эм.. Может, тогда просто:

procedure TForm1.Button1Click(Sender: TObject);
var k : integer;
begin
SendMessage(RichEdit1.Handle, EM_REPLACESEL, 0, integer(PCHAR('Десять'+#13)));
end;

?

Если использовать этот метод то получается так:
1-е нажатие:

50
50
Десять
50
50

2-е нажатие:

50
50
ДесятьДесять

50
50

----
а должно быть так:
1-е нажатие:

50
50
Десять
50
50

2-е нажатие:

50
50
Десять
Десять
50
50

и так далее...

[Sazary]

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

Если использовать этот метод то получается так:

Хм.. А у меня как надо делается..

[DomiNick]

Попробуйте так:

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

А вообще это зависит где будет распологаться курсор...
Вариант Sazary для случая если курсор в начале строки...

вот этого:
...

Думал долго... Но так и не понял что оно должно делать...

Если первый символ в выбранном не "абзац", то перевести выделенное на новую строку...
Иначе дважды перевести выделенное на новую строку..... %)

[IIpopoK]

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

Хм.. А у меня как надо делается..

Я незнаю почему( может быть из-за того что у меня сначала идет функция поиска и замены, а потом только переход на новую строку, но это маловероятно!
Вам тоже большое спасибо!!!! Очень помогли!

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

Попробуйте так:

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

А вообще это зависит где будет распологаться курсор...
Вариант Sazary для случая если курсор в начале строки...



Думал долго... Но так и не понял что оно должно делать...

Если первый символ в выбранном не "абзац", то перевести выделенное на новую строку...
Иначе дважды перевести выделенное на новую строку..... %)

Большое спасибо! то что нужно! все верно работает!
Но работает с небольшим косяком( на 2-м клике((
вот скрин что получается:

[Sazary]

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

Но работает с небольшим косяком( на 2-м клике((

А где здесь результат второго клика? Какая строчка?

[IIpopoK]

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

А где здесь результат второго клика? Какая строчка?

ну да) согласен не видно=))
Обьясню..) при каждом клике появляется текст "a:=a+1;"!
соответственно "a:=а+1;а:=а+1;" - т.е. выделенный текст есть 2-е нажатие

[Sazary]

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