Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

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

Delphi , Компоненты и Классы , TMemo и TRichEdit

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

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

procedure TForm1.Memo1Change(Sender: TObject);
 const
   MaxLineCount = 5;
 begin
   if Memo1.Lines.Count > MaxLineCount then
     // undo the last change 
    // letze Дnderung rьckgдngig machen 
    Memo1.Perform(EM_UNDO, 0, 0);
   // The EM_EMPTYUNDOBUFFER message clears the undo flag, 
  // which means that you can no longer undo your last change 
  // to the edit control. 
  // Die Message EM_EMPTYUNDOBUFFER lцscht das UnDo Flag, 
  // damit kann die letzte Дnderung nicht Rьckgдngig gemacht werden. 
  Memo1.Perform(EM_EMPTYUNDOBUFFER, 0, 0);
 end;

Статья Ограничение на количество строк в TMemo раздела Компоненты и Классы TMemo и TRichEdit может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: TMemo и TRichEdit ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
19.10.2021 23:53:16/0.016849994659424/0