TForm Klasse dynamisch erstellen ja nachdem ob Klasse vorhanden ist

[Uwe Raabe]

Zitat von fisipjm:

Also GetClass funktioniert, liefert mir aber logischerweise nur eine TPersistant zurück. Und ich scheitere daran aus dieser Tpersistant dann die Form zu createn. Ich befürchte ich hab da irgendwo noch eine riesen Wissenslücke

Unter der Annahme, dass TTolleNeueForm von TMainForm abgeleitet ist:

Delphi-Quellcode:

type
  TMainFormClass = class of TMainForm;

var 
  MainFormClass: TMainFormClass;
  PersistentClass: TPersistentClass;
begin
  MainFormClass := TMainForm;
  PersistentClass := GetClass('TTolleNeueForm');
  if PersistentClass <> nil then
    MainFormClass := TMainFormClass(PersistentClass);

  myForm := MainFormClass.Create(Application);
end;