Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c