Скачать: CL | DM;

Создание события для потомка класса   Найти похожие ветки 

← →
Vladimir88   (2005-09-26 15:04) [0]

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)
....

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

---

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

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

---

← →
Vladimir88   (2005-09-26 15:58) [2]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: -0.971 c