Как в потомке запретить использование метода наследника?

← →
_Asph © (2007-07-05 10:00) [0]

Есть класс
Tmec = class(TImage)
...
protected
{ Protected declarations }
procedure Click;override;
...

Есть фрейм на него кладется Tmec
Tbnc = class(TFrame)
...
mec: Tmec;
procedure mecClick(Sender: TObject);

Т.е. когда объект Tmec лежит на форме, клик обрабатывается через него, а когда щелкают по фрейму, хотелось бы, что бы обрабатывалось через Tbnc. А он отработав Tbnc, отрабатывает еще и Tmec. Как запретить?

← →
StriderMan © (2007-07-05 10:04) [1]

> procedure Click;override;

begin inherited; if Assigned(OnClick) then Exit; //а тут код, который выполняется если не Assigned end;

что-то типа этого. Но немного странноватая логика получается.

Как в потомке запретить использование метода наследника? Найти похожие ветки