Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.07.01;
Скачать: [xml.tar.bz2];

Вниз

Потомок TMemo   Найти похожие ветки 

 
iXT ©   (2007-06-04 12:15) [0]

С понедельничком! :)

Есть у сабжа свойство RowCount (из названия я думаю понятно чего делает)

Надо перехватить OnChange (типа override) и потом что-то вроде:

begin
inherited ...
if Lines.Count > FRowCount then ...
end;

НО FOnChange определен как

FOnChange: TNotifyEvent;

property OnChange: TNotifyEvent read FOnChange write FOnChange;

Как его сюда приладить не сооброжу...


 
clickmaker ©   (2007-06-04 12:18) [1]

procedure TCustomEdit.Change; ?


 
iXT ©   (2007-06-04 12:28) [2]

> clickmaker ©   (04.06.07 12:18)

Да, видел ее. Тока запутался немного из-за read FOnChange write FOnChange;
Не понял как она тут прижилась
Получиться что-то вроде:

procedure TMyMemo.Change; override;

procedure TMyMemo.Change;
begin
inherited Cahge;
... // Мой код
end;


 
iXT ©   (2007-06-05 17:24) [3]

Как из Lines убрать (красиво) последний #13#10?



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

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

Наверх




Память: 0.44 MB
Время: 0.004 c
1-1178010795
Tack
2007-05-01 13:13
2007.07.01
Как получить PlainText из RTF-строки, не используя TRichEdit?


1-1177676693
Ford
2007-04-27 16:24
2007.07.01
Смена раскладки клавиатуре в системе


2-1180638871
Углук
2007-05-31 23:14
2007.07.01
Компиляция элемента управления.


2-1181116531
Wolferio
2007-06-06 11:55
2007.07.01
Выбол Листа в Excel


2-1181299998
ЮРЕЦ
2007-06-08 14:53
2007.07.01
из bmp, jpg в G-code





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский