Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Переопределить 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;


Наверх

Титульная страница Поиск, карта сайта Написать письмо