Klasse von TForm ableiten und Constructor um Parameter erweitern

**JonnyGuitar**

Hallo,

ich versuche eine Klasse von TForm abzuleiten. Diese Klasse müsste
aber beim Constructor aber mehr Parameter als AOwner haben, in diesem Fall Caption.
Ich habe bis jetzt folgendes, was aber nicht funktioniert:

zusammenfalten · markieren

Delphi-Quellcode:

			unit InfoWindow;

interface

uses

  Windows,

  Forms,

  Classes,

  Dialogs;

type

  TInfoWindow = class(TForm)

  private

    FCaption: string;

  public

    constructor Create(AOwner: TComponent; Caption: string); reintroduce; overload; virtual;

    destructor Destroy; override;

  end;

implementation

constructor TInfoWindow.Create(AOwner: TComponent; Caption: string);

begin

  inherited Create(AOwner);

  self.Caption := Caption;

end;

destructor TInfoWindow.Destroy;

begin

  inherited Destroy;

end;

end.

Beim inherited Create(AOwner) kommt die Fehlermeldung "Ressource TInfowindow wurde nicht gefunden"

Kann mir einer weiterhelfen?

Gruss Jonny

Klasse von TForm ableiten und Constructor um Parameter erweitern

Klasse von TForm ableiten und Constructor um Parameter erweitern

Forumregeln