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

Событие MyEvent   Найти похожие ветки 

← →
alexnmsk   (2003-12-01 13:18) [0]

Хочу создать собственное событие для компонента. Делаю так:

type
TMyEvent = procedure (Sender: TObject; x, y: Longint) of object;

в описании объекта в разделе private:
FMyEvent: TMyEvent;

в разделе published:
property OnMyEvent: TMyEvent read FMyEvent write FMyEvent;

затем в компоненте вызываю событие:
FMyEvent(Self, x, y);

Вроде все работает, НО только если в основной форме написан обработчик события OnMyEvent, иначе вызов FMyEvent(Self, x, y) дает ошибку.

---

← →
Reindeer Moss Eater ©   (2003-12-01 13:19) [1]

А как бы ты хотел?

Что бы вызывался несуществующий в природе код?

---

← →
Reindeer Moss Eater ©   (2003-12-01 13:20) [2]

Правильнее так
if Assigned(FMyEvent) then FMyEvent(Self, x, y);

---

← →
Silver Alex ©   (2003-12-01 13:27) [3]

делай проверку

if assigned(FMyEvent) then FMyEvent(Self, x, y);

а если в основной форме не написан обработчик события OnMyEvent, то конечно ничего не будет

---

← →
alexnmsk   (2003-12-01 13:31) [4]

Всем спасибо! И правда, чего-й то я?

---

Страницы: 1 вся ветка

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



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