Создание события для потомка класса

← →
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, так задумано в программе

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