 |
|
Модераторы: Poseidon, Snowy, bems, MetalFan |
 
|
|
события 
| Гость_123 |
|
|||
|
Unregistered |
к примеру есть класс и в нем событие
procedure fEvent = procedure (param: TParam) of object; TfClass = class(...) FEV = fEvent property FEV: fEvent read FEV write FEV end; TfClassNew = class(TfClass) end; как из класса TfClassNew вызвать событие FEV??? Create TfClass инициализирает TfClassNew |
|||
|
||||
Загрузка ...
| Гость_123 |
|
|||
|
Unregistered |
слишком сложный вопрос?
|
|||
|
||||
| _hunter |
|
|||
 Эксперт  Профиль Группа: Участник Клуба Сообщений: 8564 Регистрация: 24.6.2003 Где: Europe::Ukraine:: Kiev Репутация: 15 Всего: 98 |
слишком странный
 в чем проблема с if ( Assigned(FEV) ) FEV(param) -------------------- Tempora mutantur, et nos mutamur in illis... |
|||
|
||||
| Гость_123 |
|
|||
|
Unregistered |
Если так, то ошибка вылетает
|
|||
|
||||
| Girder |
|
|||
 Лентяй 2 Профиль Группа: Участник Клуба Сообщений: 1993 Регистрация: 12.5.2004 Репутация: 31 Всего: 155 |
if Assigned(FEV) then FEV(param), где param это:
a)если тип fEvent=procedure (Sender: TObject) of object, то param=к примеру Self б)если тип fEvent=procedure(Sender:TObject; Name:String) of object, то param=к примеру (Self,'Girder'). ... Ну и т.д. и т.п. Удачи. -------------------- Как слышим, так и пишим. Истина где-то там... |
|||
|
||||
| Гость_123 |
|
|||
|
Unregistered |
спасиб дорогие разобрался
проблема вовсе не в этом была..... нужно в Create TClassNew вставить такую хрень: Self.OnReceiveDataEvent := (Owner as TWorker).OnReceiveDataEvent; |
|||
|
||||
| Girder |
|
|||
|
Лентяй 2 Профиль Группа: Участник Клуба Сообщений: 1993 Регистрация: 12.5.2004 Репутация: 31 Всего: 155 |
А можно и просто продублировать FEV в классе TClassNew.
Удачи. -------------------- Как слышим, так и пишим. Истина где-то там... |
|||
|
||||
|
|
| Правила форума "Delphi: Общие вопросы" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
[ Время генерации скрипта: 0.0436 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |