Остановка Memo - Общие вопросы Delphi

Sanek777 · 11.09.2008, 14:56

Как сделать чтобы больше 15 строчек в Memo вводить нельзя было?

dr.Chas · 11.09.2008, 15:50

Код:

procedure TForm1.Memo1Change(Sender: TObject);
begin
    if Memo1.Lines.Count=15 then memo1.ReadOnly:=true;
end;

11.09.2008, 14:56	#1
Sanek777 Заблокирован Пользователь Регистрация: 31.07.2008 Сообщений: 90	Остановка Memo Как сделать чтобы больше 15 строчек в Memo вводить нельзя было?

11.09.2008, 15:50	#2
dr.Chas *** Участник клуба Регистрация: 30.07.2007 Сообщений: 1,162	Код: `procedure TForm1.Memo1Change(Sender: TObject); begin if Memo1.Lines.Count=15 then memo1.ReadOnly:=true; end;` profdev

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Ricoh Aficio FX200, замятие(остановка печати)	PDVich	Компьютерное железо	0	07.05.2008 10:22
Управление потоками. Запуск, остановка, приоритет потока.	metamfetamin	Помощь студентам	5	11.11.2007 12:45
Остановка ADODS при OnFetchProcess	QuAlex	БД в Delphi	0	04.10.2007 17:31
Memo	MAcK	Общие вопросы Delphi	1	02.10.2007 17:14
В Memo сделать так, чтобы текст был разного цвета, разноцветный memo	Artem	Компоненты Delphi	3	07.09.2007 13:40