Текущий архив: 2002.08.12;
Скачать: CL | DM;
Вниз
OnClick для компонента Найти похожие ветки
← →
ilg © (2002-07-30 13:25) [0]Здравствуйте!
Проблема в следующем:
Создаю компонент как наследник TLabel. Как сделать, чтобы при щелчке мышкой по компоненту сначала выполнялись какие-либо действия, а потом то, что пользователь предусмотрел в OnClick?
Заранее, большое спасибо!
← →
MBo © (2002-07-30 13:30) [1]procedure TMyLabel.Click; //override в объявлении
begin
действия;
inherited Click;
end;
← →
Alx2 © (2002-07-30 13:34) [2]Перекрой у TLabel динамический метод Click;
В нем сделай то, что надо, а потом вызови ingherited.
Или через задницу:
Сохраняй старый OnClilck отдельно и после отработки своего вызывай метода старый.
← →
Alx2 © (2002-07-30 13:35) [3]параллелизмь :)
← →
Эмиль © (2002-07-30 14:26) [4]
type
TMyLabel = class(TCustomLabel)
...
procedure click;override;
end;
procedure TMyLabel.Click; begin
begin
...
inherited Click;
end;
Страницы: 1 вся ветка
Текущий архив: 2002.08.12;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.014 c
