Ограничение количества символов в Richviewedit

Shouldercannon

Well-known member
25.05.2010
128
0
#1
У RichViewEdit есть свойство MaxLength, оно ограничевает количество символов для текущей строки. Как сделать общее ограничение, если количество символов = 100, то дальше текст вводить нельзя, ну или событие на кнопке
Код:
ShowMessage('Длина сообщения превышает 100 символов')
 

Shouldercannon

Well-known member
25.05.2010
128
0
#2
Код:
procedure TForm1.RichViewEdit1Change(Sender: TObject);
begin
r := RichViewEdit1.GetTextLen; //Подсчёт количества символов в RVE
Label1.Caption := IntToStr(r); //Вывод количества в Label1
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if r > 100 then //Если r > 100 тогда оповещаем об этом
ShowMessage('Длина сообщения превышает 100 символов');
end;
 

Shouldercannon

Well-known member
25.05.2010
128
0
#3
sax_ol
Собственно вот
Код:
if r > 100 then //Если r > 100 тогда оповещаем об этом
оно конечно не запрещает вводить текст дальше, но и не пропустит его, пока не будет сокращено до нужного количества.