Скачать: 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 вся ветка

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



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