Текущий архив: 2007.07.29;
Скачать: CL | DM;
Вниз
Как в потомке запретить использование метода наследника? Найти похожие ветки
← →
_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;
что-то типа этого. Но немного странноватая логика получается.
Страницы: 1 вся ветка
Текущий архив: 2007.07.29;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.025 c
