Ограничение на количество строк в TMemoDelphi , Компоненты и Классы , TMemo и TRichEditОграничение на количество строк в TMemo
Оформил: DeeCo 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. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: TMemo и TRichEdit ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |