![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Переопределить OnClick у потомка TCustomControl? [D7, WinXP]
DVM © (2006-04-19 13:48:00)Как это оформить в классе, че то никак не соображу.
У потомка должно остаться событие OnClick, но при клике он (потомок) должен выполнять некие действия до пользовательского обработчика OnClick.
DVM (2006-04-19 14:23:00) [1]
> icWasya © (19.04.06 14:08) [1]
Спасибо.
icWasya (2006-04-19 14:08:00) [2]
type
TMyControl = class(TCustomControl)
...........
procedure Click; override;
.........
end;
...........
procedure TMyControl.Click;
begin
// что - нибудь ДО
inherited Click;
// что - нибудь ПОСЛЕ
end;