Delphi-Quellcode:
type
THelpEx = class
private
FOwner: TComponent;
FmyHelpID: Integer;
public
constructor Create(AOwner: TComponent);
procedure ShowHelp;
published
property myHelpID: Integer read FmyHelpID write FmyHelpID;
end;
TMyEdit = class(TEdit)
private
FHelpEx: THelpEx;
procedure SetHelpEx(Value: THelpEx);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
property HelpEx: THelpEx read FHelpEx write SetHelpEx;
end;
constructor TMyEdit.Create(AOwner: TComponent);
begin
inherited;
FHelpEx := THelpEx.Create(Self);
end;
destructor TMyEdit.Destroy;
begin
FHelpEx.Free;
inherited;
end;[/delphi]