TFormClass von einem MDIChild

[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;