Событие 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]

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

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