Object Pascal Compiler

[jbg]

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]