Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.12.12;
Скачать: 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 вся ветка

Текущий архив: 2003.12.12;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
7-36872
Rentgen
2003-10-03 07:31
2003.12.12
Компонент HotKey.


14-36808
Style
2003-11-20 11:43
2003.12.12
Народ помогите Чат проверить..


1-36619
Zapped
2003-12-01 03:09
2003.12.12
Delphi 7 глюк редактора


1-36625
Ega23
2003-12-03 10:53
2003.12.12
Сохранить картинку в файл.


3-36550
rosl
2003-11-13 08:27
2003.12.12
запрос sql