Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c