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

Переопределить OnClick у потомка TCustomControl?   Найти похожие ветки 

← →
DVM ©   (2006-04-19 13:48) [0]

Как это оформить в классе, че то никак не соображу.
У потомка должно остаться событие OnClick, но при клике он (потомок) должен выполнять некие действия до пользовательского обработчика OnClick.

---

← →
icWasya ©   (2006-04-19 14:08) [1]


type
 TMyControl = class(TCustomControl)
 ...........
 procedure Click; override;
 .........
 end;

...........
procedure TMyControl.Click;
begin
 // что - нибудь ДО
 inherited Click;
 // что - нибудь ПОСЛЕ
end;



---

← →
DVM ©   (2006-04-19 14:23) [2]

> icWasya ©   (19.04.06 14:08) [1]

Спасибо.

---

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

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



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