| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Создание события для потомка класса [D7, WinXP]

Vladimir88 ©   (2005-09-26 15:04:00) 

type TFrmPrt=class;

TMyDataChangeEvent = procedure(Sender: TFrmPrt; const Data: string)  of object;

TFrmPrt=class(TFrame)
 private
  FOnDataChange: TMyDataChangeEvent;
 protected
  procedure DoDataChange(const Data: string);
 public
  property OnDataChange: TMyDataChangeEvent read FOnDataChange write FOnDataChange;
end;

implementation

{ TPrt }

procedure TFrmPrt.DoDataChange(const Data: string);
begin
if Assigned(FOnDataChange) then
 FOnDataChange(Self, Data);
end;

В другом модуле создаю

Frame=class(TFrmPrt)
....

Всё работает отлично, но если проект закрыть, и снова открыть(всмысле загрузить в дельфи), то он ругается что недостаёт каких-то свойств, и предлагает проигнорить. что я неправильно сделал.

---

Vladimir88   (2005-09-26 15:58:00) [1]

Обработчик может вызвать только потомок класса TFrmPrt, так задумано в программе

---

Вова Полтавский   (2005-09-26 15:34:00) [2]

Хотел спросить - а насколько обоснованно использование именно Sender: TFrmPrtв TMyDataChangeEvent???
Неужели никто другой не может вызвать обработчик ?

---

Наверх