Klasse übergeben und dann Object erstellen

[x000x]

Moin moin,
mich würde interessieren, ob folgendes so korrekt ist, bzw. wie es anders geht?
(Es interessiert nur die gekennzeichnete Stelle mit den Fragezeichen...
Ziel soll sein, in einer MDI Anwendung mit ein und derselben Funktion verschiedene Fenster zu öffnen.)

Delphi-Quellcode:

procedure TMDI.OeffneFenster(Cls: TClass; Zentrieren: Boolean = True);
var
   i         : Integer;
   vorhanden : Boolean;
   t         : TForm;
begin
   vorhanden := false;
   for i := 0 to MDIChildCount -1 do begin
       if MDIChildren[i] is Cls then begin
          vorhanden := true;
          MDIChildren[i].WindowState := wsNormal;
          MDIChildren[i].Show;
          MDIChildren[i].BringToFront;
          Break;
       end;
   end;
   if not vorhanden then begin
      t := TForm(Cls.Create).Create(Self); //???
      if Zentrieren then
         Center(t);
   end;
end;
// Aufruf dann z.B.
OeffneFenster(TForm1);
OeffneFenster(TForm5, False);

Lauffähig ist der Code, ich bin mir halt nicht sicher, ob es so korrekt ist.

[Apollonius]

Du rufst hier zweimal create auf. Richtig wäre:

Delphi-Quellcode:

type TFormClass=class of TForm; //statt TClass verwenden!!!

t := TFormClass(Cls).Create(Self);

Dabei wäre es auch gut, wenn du cls als TFormClass deklarieren würdest, denn sonst könnte man TObject einsetzen und es würde Fehler hageln.

[x000x]

Hey super, danke :-)

Zitat:

Zitat von Apollonius

Dabei wäre es auch gut, wenn du cls als TFormClass deklarieren würdest, denn sonst könnte man TObject einsetzen und es würde Fehler hageln.

Dann wird des casten nach TFormClass auch überflüssig... Thx nochmal