[gelöst] TForm ableiten -> EResNotFound Exception

[silver-moon-2000]

Hallo zusammen,

sorry, dass ich Euch wegen so einem einfachen Problem stören muss, aber ich weiß nicht weiter.
Das kann damit zusammenhängen, dass ich seit gestern 20:00 Uhr ununterbrochen vor dem Bildschirm sitze (wenn einen der Programmiereifer packt ), aber (oder vielleicht gerade deswegen ) ich sehe zurzeit den Wald vor lauter Bäumen nicht mehr.

Problem:
Zwei Forms, die eine von TForm abgeleitet, die andere von der bereits abgeleiteten nochmals abgeleitet.

Die TBaseForm soll bereits alle Elemente enhalten, die davon abgeleitete Forms ebenfalls benötigen (in diesem Fall den Button btStart).

In den von TBaseForm abgeleiteten Klassen kommen neue Komponenten hinzu (in diesem Fall ein Button btEnd)

Delphi-Quellcode:

unit uProgramHandlerForms;

type TBaseForm = class(TForm)
  private
    btStart : TButton;
  public
    constructor Create; virtual;
end;

type TComplexForm =class(TBaseForm)
  private
    btEnd : TButton;
  public
    constructor Create; override;
end; 

implementation


constructor TBaseForm.Create;
begin
  inherited Create(nil); //<-- hier bleibe ich immer mit der Exception (siehe unten) hängen
  btStart := TButton.Create(self);
  btStart.Parent := self;
  btStart.Top := 20;
  btStart.Left := 20;
  btStart.Visible := True;

  Height := 300;
  Width := 300;
  Caption := 'BaseForm';
  Visible := True;
end;


constructor TComplexForm.Create;
begin
  inherited Create;
  btEnd := TButton.Create(self);
  btEnd.Parent := self;
  btEnd.Top := 100;
  btEnd.Left := 20;
  btEnd.Visible := True;

  Caption := 'ComplexForm';
end;

MainUnit:

Delphi-Quellcode:

type
  TFrmMain = class(TForm)
    BtTest: TButton;
    procedure BtTestClick(Sender: TObject);
  private
    cf : TBaseForm;
  public
    { Public declarations }
  end;

[...]

procedure TFrmMain.BtTestClick(Sender: TObject);
begin
  cf := TComplexForm.Create;
end;

Wenn ich nun auf meiner Hauptform den Button btTest drücke, kommt die wunderhübsche Fehlermeldung

Zitat:

Project ProgramHandlerTest.exe raised exception class EResNotFound with message 'Resource TComplexForm not found'

Ich hoffe, dass jemand hier mal den Funken überspringen lassen könnte, der dann die Bäume abfackelt, sodass ich den Wald wieder sehen kann.