Form zur Laufzeit erstellen

[StanY]

Ich steh grad ein wenig auf dem Schlauch und finde den Fehler hier nicht:

Delphi-Quellcode:

var
  Form: TForm;
begin
  Form := TForm.Create(nil);
  {...}
  Form.Show;
end;

Das funktioniert wunderbar,..

...während hingegen...

Delphi-Quellcode:

type
  TChatWindow = class(TForm)

  end;

var
  Form: TChatWindow;
begin
  Form := TChatWindow.Create(nil);
  {...}
  Form.Show;
end;

... das nicht funktioniert, sondern eine Exception ausgelöst wird: 'Resource TChatWindow was not found'.

Warum? ôO

[Dust Signs]

Wenn die Exception vor dem OnShow auftritt, emfehle ich dir, Form.Parent zusätzlich auf nil zu setzen. Ansonsten seh ich eigentlich keinen Fehler in deinem Code

Dust Signs

[StanY]

Die Exception tritt hier auf:
Form := TChatWindow.Create(nil);

[Dust Signs]

Achja, klar:

Application.CreateForm(TChatWindow, Form); Dust Signs

[StanY]

Und warum? ^^

edit: grade getestet:

Delphi-Quellcode:

  Application.CreateForm(TChatWindow,ChatWnd[0]);
  ChatWnd[0].Left := 0;
  ChatWnd[0].Top := 0;
  ChatWnd[0].Height := 200;
  ChatWnd[0].Width := 200;
  ChatWnd[0].Parent := pnlChat;
  ChatWnd[0].Show;

Geht ebenfalls nicht (;. - Derselbe Fehler.

[Dax]

Dein Delphi scheint dein TChatWindows aus einer DFM-Resource laden zu wollen, was wegen der Dynamik (du hast ja kein Design für die Form im Form-Designer erstellt) nicht funktioniert. Deswegen meldet es dir, die Resource sei nicht gefunden worden.

Versuche mal, dein TChatWindow in eine andere Unit auszulagern, in der auf keine Resourcen zugegriffen wird.

[StanY]

Danke. Aber wäre es denn Möglich, dass ich für die Formen schon ein Design vordefiniere? Das wäre äußerst praktisch. Wenn ja, wie? ôO

[Dax]

Datei->Neu->Formular ist der Weg deines Mauszeigers

[StanY]

>< danke ^^

[SirThornberry]

du musst eine DFM dazu haben wenn du es über TForm.Create erstellst da im Constructor versucht wird eben diese zu laden. Aber wie schon geschrieben wurde geht es wenn du über "File->New->Form" das neue Formular erstellst (da eine dfm dabei mit angelegt wird)