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:
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