Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.11.2015, 19:17   #21
alman12
Форумчанин
 
Регистрация: 30.12.2013
Сообщений: 466
По умолчанию

Спасибо всем

так тоже можна сделать нашел в yandex

Код:
const
   MaxLineCount = 1;
 begin
   if Memo1.Lines.Count > MaxLineCount then
    Memo1.Perform(EM_UNDO, 0, 0);
  Memo1.Perform(EM_EMPTYUNDOBUFFER, 0, 0);
 end;

Последний раз редактировалось Stilet; 26.11.2015 в 21:36.
alman12 вне форума Ответить с цитированием
Старый 26.11.2015, 21:36   #22
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
так тоже можна сделать
Просто поверь: Тебе так делать не нужно.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 08.01.2018, 16:07   #23
CrazyManR
 
Регистрация: 30.04.2012
Сообщений: 8
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Просто поверь: Тебе так делать не нужно.
Может так сойдет)
Код:
procedure TForm1.Memo1Change(Sender: TObject);
begin
if memo1.Lines.Count > 3 then memo1.WantReturns:=False else memo1.WantReturns:=True;
label1.Caption:=inttostr(memo1.Lines.Count);
end;
CrazyManR вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Delphi.Чтение файла в Memo, вычисление, добавление строк в Memo antonio_sk Помощь студентам 0 26.04.2013 18:01
Удаление строк в Memo qpuTuJlb Помощь студентам 6 01.06.2012 17:17
Memo перенос строк. mt10forex Помощь студентам 7 07.07.2010 09:23
Органичить скорость передачи Denager Работа с сетью в Delphi 22 05.03.2008 09:08
Нумерация строк в Memo Макс84 Компоненты Delphi 10 02.04.2007 17:10