Форум программистов
 
Расширенный поиск
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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



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

Спасибо всем

так тоже можна сделать нашел в 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 в 22:36.
alman12 вне форума   Ответить с цитированием
Старый 26.11.2015, 22:36   #22
Stilet
Белик Виталий :)
Профессионал
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Адрес: Украина, Донецкая область, г. Краматорск
Сообщений: 57,958
Репутация: 6799
По умолчанию

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

Цитата:
Сообщение от 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 вне форума   Ответить с цитированием
Ответ



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
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 10:08
Нумерация строк в Memo Макс84 Компоненты Delphi 10 02.04.2007 17:10




22:12.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
лучший хостинг
Выбираем лучший хостинг: рейтинг ТОП 10