Родитель и потомок сообща

← →
Индеец (2009-04-17 22:07) [0]

Здравствуйте, вот есть такой класс:
T1=class(Tobject) .... protected procedure ontimer1 (sender:TObject); ..... procedure T1.ontimer1 (sender:TObject); begin ................. end;
Есть его потомок:
T2=class(T1) ..... private procedure ontimer1 (sender:TObject); ....... procedure T2.ontimer1 (sender:TObject); begin inherited; showmessage("1"); end; .....

В T1 есть Ttimer, которому назначается событие ontimer1.
Хотелось бы, чтобы в потомке это событие переопределить, вызвать сначала реализацию родителя, а затем добавить свой код. Как это правильно реализовать ?

← →
Индеец (2009-04-17 22:08) [1]

Точнее не родитель и потомок, конечно, а наследники.... ошибся.

← →
Игорь Шевченко © (2009-04-17 22:33) [2]

> В T1 есть Ttimer, которому назначается событие ontimer1.
>
> Хотелось бы, чтобы в потомке это событие переопределить,
> вызвать сначала реализацию родителя, а затем добавить свой
> код. Как это правильно реализовать ?

T1 = class private procedure OnTimer (Sender: TObject); protected procedure DoOnTimer; virtual; end; T2 = class protected procedure DoOnTimer; override; end; procedure T1.OnTimer (Sender: TObject); begin DoOnTimer; end; procedure T2.DoOnTimer; begin inherited; .... end;

← →
Индеец (2009-04-17 22:37) [3]

Понял, спасибо большое

> Индеец (17.04.09 22:08) [1]
>
> Точнее не родитель и потомок, конечно, а наследники....
> ошибся.
>

Только в толковании перевода на русский.

Родитель и потомок сообща Найти похожие ветки