Форум: "Основная";
Текущий архив: 2003.11.27;
Скачать: [xml.tar.bz2];

Вниз

Как ограничить количество линий в ТМемо?   Найти похожие ветки 

← →
Dark Elf   (2003-11-17 11:59) [0]

Уважаемые мастера!

Как ограничить количество линий в ТМемо?

Заранее благодарен за ответ

---

← →
clickmaker   (2003-11-17 12:03) [1]

Memo.MaxLength

---

← →
Семен Сорокин   (2003-11-17 12:05) [2]

на OnChange проверяй - Memo.Lines.Count

---

← →
Dark Elf   (2003-11-17 12:11) [3]

Спасибо!

---

← →
dataMaster   (2003-11-17 12:14) [4]

Взято с Торри

procedure TForm1.Memo1Change(Sender: TObject);
const
MaxLineCount = 5;
begin
if Memo1.Lines.Count > MaxLineCount then
Memo1.Perform(EM_UNDO, 0, 0);
Memo1.Perform(EM_EMPTYUNDOBUFFER, 0, 0);
end;

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.11.27;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.01 c