Необходимо сделать видимым в инспекторе объектов событие объекта принадлежащего компоненту. Свойства отображаются свободно, а вот с событиями чего-то не догоняю, подскажите что не так. Пример:
| Код |
..............................
type
TExClass = class(TPersistent)
private
fExProp: string;
fOnExEvent: TNotifyEvent;
published
property ExProp: string read fExProp write fExProp; //Отображается в инспекторе
property OnExEvent: TNotifyEvent read fOnExEvent write fOnExEvent; //Не отображается в инспекторе, а нужно что-бы отображался
end;
TExComponet = class(TComponent)
private
fExClass: TExClass;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
property ExClass: TExClass read fExClass write fExClass;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Ex', [TExComponet]);
end;
constructor TExComponet.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
ExClass := TExClass.Create;
end;
destructor TExComponet.Destroy;
begin
ExClass.Free;
inherited Destroy;
end;
|
|