Текущий архив: 2003.11.27;
Скачать: CL | DM;

Вниз

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

← →
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;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.03 c