TForm Klasse dynamisch erstellen ja nachdem ob Klasse vorhanden ist

[BerndS]

Hier ein einfaches Beispiel:

Delphi-Quellcode:

procedure TForm1.bt1Click(Sender: TObject);
var
  F: TPersistentClass;
  D:TForm;
begin
  F := FindClass('TForm2');
  if Assigned(F)  then
  begin
    Application.CreateForm(TComponentClass(F) ,  D);
    D.Show;
  end;

end;