TForm Klasse dynamisch erstellen ja nachdem ob Klasse vorhanden ist

[fisipjm]

Zitat von 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;

Tut genau was es soll. Vielen dank!
Hab mich in den letzten Tagen mehr mit Klassen und insbesondere auch RTTI auseinander gesetzt. Wilkommen in einer neuen Abstraktionsebene Mein Kopf raucht, aber auf eine gute weise