Custom Form

Hej

Jeg vil gerne lave en ny classe som er basseret på TForm
TQFormExt = class(TForm)

Der skal til TMyForm tilføjes en published event (OnEvent: TEventEvent).

Derefter vil jeg i Respiretory kunne tilføje forme af typen TQFormExt til mine projekter. Og disse skal alle have en published event i object inspektoren.

Jeg har skrevet følgende unit: 

unit uQFormExt;
interface
uses
  Classes, QForms;
type 
  TQFormExt = class(TForm)
  private
    FOnEvent: TEventEvent;
  protected
  public
    constructor Create      (AOwner: TComponent); override;
    destructor  Destroy;    override;
  published
    property    OnEvent: TEventEvent  read FOnEvent write FOnEvent;
  end;

implementation

constructor TQFormExt.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
end;

destructor TQFormExt.Destroy;
begin
  inherited Destroy;
end;

end.


Men det ser ikke ud at virke helt så godt ! Jeg kan ihvertfald ikke tilføje classen til respiretorien og derefter tilføje formene til projektet.

Er der nogen der ved noget om det her ?

Jeg har på nettet også fundet følgende side, som skriver om emnet, men jeg forstod ikke alt for meget af det:

http://www.tempest-sw.com/opentools/custom-forms.html