procedure TForm1.RichEdit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
i:integer;
begin
if (Key=VK_RETURN)and(ssCtrl in Shift) then begin
RichEdit1.SelAttributes.Color:=clRed;
RichEdit1.SelAttributes.Style:=[fsBold];
RichEdit1.Lines.Add(nick);
RichEdit1.SelAttributes.Color:=clWindowText;
RichEdit1.Lines.AddStrings(RichEdit2.Lines);
RichEdit2.Lines.Clear;
end;
end;
Ввод текста в RichEdit
Добрый вечер!
Есть проблема ввода в RichEdit
Вот код программы...
Программа что-то наподобии чата
Когда я обрабатываю это событие, то происходит проверка нажаты ли Enter+CTRL, если нажаты, то сообщение отправляется в другое окно, а окно где вводили очищается, только после очистки курсор стоит на позицию ниже, а не в самом начале, как это исправить?
Есть проблема ввода в RichEdit
Вот код программы...
Код:
Программа что-то наподобии чата
Когда я обрабатываю это событие, то происходит проверка нажаты ли Enter+CTRL, если нажаты, то сообщение отправляется в другое окно, а окно где вводили очищается, только после очистки курсор стоит на позицию ниже, а не в самом начале, как это исправить?
Проблема в этой строке RichEdit1.Lines.AddStrings(RichEdit2.Lines);
Как цивильно решить, не знаю, можно попробовать следующие способы:
1. RichEdit1.Lines.Text := RichEdit1.Lines.Text + RichEdit2.Lines.Text;
2. Удалять последнюю строку в RichEdit1.Lines, после добавления строк
Как цивильно решить, не знаю, можно попробовать следующие способы:
1. RichEdit1.Lines.Text := RichEdit1.Lines.Text + RichEdit2.Lines.Text;
2. Удалять последнюю строку в RichEdit1.Lines, после добавления строк
Цитата: saturn61
Код:
RichEdit1.Lines.AddStrings(RichEdit2.Lines);
Мама родная, как ты String присвиваешь TStrings...