Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.07.01;
Скачать: CL | DM;

Вниз

Потомок 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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.024 c
4-1169582793
Костя
2007-01-23 23:06
2007.07.01
Перехват события удаления


8-1160998497
Григорий
2006-10-16 15:34
2007.07.01
JPG из интернета


15-1179599783
GeLLeR
2007-05-19 22:36
2007.07.01
STALKER


2-1181152092
Ламер 2.Х
2007-06-06 21:48
2007.07.01
Админ


3-1176112195
hamel1on
2007-04-09 13:49
2007.07.01
не работает программа на другом компьютере