скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

Поместить более 64 KB в TRichEdit



Оформил: DeeCo

{ 
  By default, a TRichedit's text is limited to 64 KB. 
  Setting the Maxlength property to $7FFFFFF0 allows you to have approx. 
  2GB of text. 

  Standardmassig ist der Text im Richedit auf 64 KB beschrankt. 
  Indem man die Maxlength auf $7FFFFFF0 setzt, kann man ungefahr 2 GB 
  Text im TRichEdit haben. 
}

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   RichEdit11.MaxLength := $7FFFFFF0;
 end;



  //oder: 
//or: 

procedure TForm1.Button1Click(Sender: TObject);
 begin
   SendMessage(RichEdit1.Handle, EM_EXLIMITTEXT, 0, $7FFFFFF0);
 end;





Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook