| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
OnClick для компонента [D5, Win95/98]
ilg © (2002-07-30 13:25:00)Здравствуйте!
Проблема в следующем:
Создаю компонент как наследник TLabel. Как сделать, чтобы при щелчке мышкой по компоненту сначала выполнялись какие-либо действия, а потом то, что пользователь предусмотрел в OnClick?
Заранее, большое спасибо!
Эмиль (2002-07-30 14:26:00) [1]
type
TMyLabel = class(TCustomLabel)
...
procedure click;override;
end;
procedure TMyLabel.Click; begin
begin
...
inherited Click;
end;
Alx2 (2002-07-30 13:35:00) [2]параллелизмь :)
Alx2 (2002-07-30 13:34:00) [3]Перекрой у TLabel динамический метод Click;
В нем сделай то, что надо, а потом вызови ingherited.
Или через задницу:
Сохраняй старый OnClilck отдельно и после отработки своего вызывай метода старый.
MBo (2002-07-30 13:30:00) [4]procedure TMyLabel.Click; //override в объявлении
begin
действия;
inherited Click;
end;
| |
