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

Тема в разделе "Delphi - Компоненты", создана пользователем Shouldercannon, 26 май 2010.

  1. Shouldercannon

    Shouldercannon Well-Known Member

    Регистрация:
    25 май 2010
    Сообщения:
    125
    Симпатии:
    0
    У RichViewEdit есть свойство MaxLength, оно ограничевает количество символов для текущей строки. Как сделать общее ограничение, если количество символов = 100, то дальше текст вводить нельзя, ну или событие на кнопке
    Код (Text):
    ShowMessage('Длина сообщения превышает 100 символов')
     
  2. Shouldercannon

    Shouldercannon Well-Known Member

    Регистрация:
    25 май 2010
    Сообщения:
    125
    Симпатии:
    0
    Код (Text):
    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;
     
  3. Shouldercannon

    Shouldercannon Well-Known Member

    Регистрация:
    25 май 2010
    Сообщения:
    125
    Симпатии:
    0
    sax_ol
    Собственно вот
    Код (Text):
    if r > 100 then //Если r > 100 тогда оповещаем об этом
    оно конечно не запрещает вводить текст дальше, но и не пропустит его, пока не будет сокращено до нужного количества.
     
Загрузка...

Поделиться этой страницей