Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.12.12;
Скачать: [xml.tar.bz2];

Вниз

Событие 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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.009 c
1-36606
gsvserg
2003-12-01 12:14
2003.12.12
ToolBar


1-36743
Destructor
2003-12-03 10:41
2003.12.12
Использование элементов управления в StringGrid


1-36698
Murad
2003-12-02 12:03
2003.12.12
Размер пикселя на печати


14-36812
хламер
2003-11-20 10:23
2003.12.12
как установить компонент если он в виде пас файла


1-36684
kolesya
2003-12-02 21:23
2003.12.12
Drag and Drop





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский