Потомок 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;

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

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