Как в потомке запретить использование метода наследника?
_Asph © (2007-07-05 10:00:00)
Есть класс
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:00) [1]
> procedure Click;override;
begin
inherited;
if Assigned(OnClick) then Exit;
//а тут код, который выполняется если не Assigned
end;
что-то типа этого. Но немного странноватая логика
получается.
Наверх 
ЧАТ |
Орешник |
|
