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

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

← →
Индеец   (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]

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

---

← →
Германн ©   (2009-04-18 00:52) [4]

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

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

---

Страницы: 1 вся ветка

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



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