Советы по Delphi
Как указать максимальный размер текста для TRichEdit?
Nomadic советует:
У этого компонента есть свойство MaxLength, которое работает некорректно. Поэтому лучше пользоваться
| RichEdit.Perform(EM_LIMITTEXT, нужный размер, 0); |
Причем перед каждом открытии файла это действие необходимо повторять.
Если Вы передаете в качестве размера 0, то ОС ограничивает размер OS Specific Default Value. Реально, по результатам моих экспериментов, поставить можно размер, чуть меньший доступной виртуальной памяти. Я ограничился 90% от свободной виртуалки.
Для того, чтобы не повторять этот вызов (EM_LIMITTEXT), можно воспользоваться сообщением EM_EXLIMITTEXT. [001144]
