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]

параллелизмь :)

type
TMyLabel = class(TCustomLabel)
...
procedure click;override;
end;
procedure TMyLabel.Click; begin
begin
...
inherited Click;
end;

OnClick для компонента Найти похожие ветки