TFormClass von einem MDIChild

[thetrue]

moin

wie kann ich die TFormClass von dem gerade erstelltem MDI-Fenster bekommen?

Delphi-Quellcode:

procedure Tmain.timerTimer(Sender: TObject);
var
  frm: TformClass;
begin
  timer.Enabled := false;
  frm := Tserv.Create(self); <-- so gehts net
  ShowMessage(frm.);
  {tmpthread}
end;

also ich will in frm die TFormClass von dem MDIChild, das so eben erstellt worde ist, haben.

[shmia]

Delphi-Quellcode:

var 
  frm: TFormClass; 
  x : TForm;
begin 
  // ermittle die FormClass des aktuellen Formulars (in self)
  frm := TFormClass(self.ClassType);

  // mit dieser Formclass ein neues Formular herstellen:
  x := frm.Create(Application);
  x.Show;
end;