RVE: игнор Enter, позиция каретки

[Shouldercannon]

В Memo задуманное сделать получилось, в RichViewEdit не получается.
Что именно не получается:
1. позиционирование каретки
2. игнор Enter если RVR пуст (не переводить каретку на следующую строку при пустом RVE)
3. не игнорировать нажатие Ctrl + Enter
4. и что за косяк в RVE при вводе текста. Допустим я написал: привет и поставил каретку перед этим словом и начал снова вводить текст, после чего каретка сразу же переходит сама в конец слова.

[Marsel737]

4. и что за косяк в RVE при вводе текста. Допустим я написал: привет и поставил каретку перед этим словом и начал снова вводить текст, после чего каретка сразу же переходит сама в конец слова.

Касяк в вашем коде, я создал новый проект и проверил - ничего подобного не происходит

[Shouldercannon]

Да верно это всё из-за

procedure TForm1.RVEMessageChange(Sender: TObject);
begin
RVEMessage.SelectAll;
  Form1.Caption := IntToStr(Length(RVEMessage.GetSelText));
    RVEMessage.Deselect;
end;

минус одна проблема

[Kotofff]

позиционирование каретки

интересует выяснение позиции курсора или его установка в нужную позицию ?
тоже не понятно.

не игнорировать нажатие Ctrl + Enter

вот тут не понял, что имеется в виду.
что за "не игнорировать" ?

[Shouldercannon]

1. Установка каретки в самый конец строки
2. Если в RichViewEdit ничего нет, то игнорируем нажатие Enter, тем самым не переводим каретку на следующую строку, а если нажали Ctrl + Enter то переводим даже при пусто RichViewEdit

[Kotofff]

Проверка на пустоту :

function  IsEmpty(rve: TCustomRichViewEdit): Boolean;
begin
  Result := (rve.ItemCount=0) or ((rve.ItemCount=1) and (rve.GetItemStyle(0)>=0) and (rve.GetItemText(0)=''));
end;

Ставим курсор в конец текущей строки :

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
  RichViewEdit1.SelectCurrentLine;
  RichViewEdit1.Deselect;
end;

[Shouldercannon]

Так по частям. Самое первое и самое главное. Как сделать чтобы игнорировалось нажатие Enter если RichViewEdit1 пуст?

[Kotofff]

procedure TForm1.RichViewEdit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if (not(ssCtrl in Shift)) and (Key = VK_RETURN) and (IsEmpty(RichViewEdit1)) then Key := 0;
end;

Ctrl+Enter - все равно будет работать .

[Shouldercannon]

Благодарю. Этап №2. Если в RichViewEdit есть какой-то текст, по после нажатия на Enter

//Поместим содержимое RVE в Memo
RVEMessage.SelectAll;
  MMessage.Text := RVEMessage.GetSelText;
    RVEMessage.Deselect;;
      RVEMessage.Clear;
        RVEMEssage.Format;

Пока что происходит снова перевод на новую строку.

[Kotofff]

procedure TForm1.RichViewEdit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if (not(ssCtrl in Shift)) and (Key = VK_RETURN) and (not IsEmpty(RichViewEdit1)) then
    begin
    Key := 0;
    RichViewEdit1.InsertText(Memo1.Text, false);
    RichViewEdit1.Reformat;
    end
    else
    if (not(ssCtrl in Shift)) and (Key = VK_RETURN) and (IsEmpty(RichViewEdit1)) then Key := 0;
end;