| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Потомок TMemo
iXT © (2007-06-04 12:15:00)С понедельничком! :)
Есть у сабжа свойство RowCount (из названия я думаю понятно чего делает)
Надо перехватить OnChange (типа override) и потом что-то вроде:
begin
inherited ...
if Lines.Count > FRowCount then ...
end;
НО FOnChange определен как
FOnChange: TNotifyEvent;
property OnChange: TNotifyEvent read FOnChange write FOnChange;
Как его сюда приладить не сооброжу...
iXT (2007-06-05 17:24:00) [1]Как из Lines убрать (красиво) последний #13#10?
iXT (2007-06-04 12:28:00) [2]> clickmaker © (04.06.07 12:18)
Да, видел ее. Тока запутался немного из-за read FOnChange write FOnChange;
Не понял как она тут прижилась
Получиться что-то вроде:
procedure TMyMemo.Change; override;
procedure TMyMemo.Change;
begin
inherited Cahge;
... // Мой код
end;
clickmaker (2007-06-04 12:18:00) [3]procedure TCustomEdit.Change; ?
| |
