TForm Klasse dynamisch erstellen ja nachdem ob Klasse vorhanden ist

[uligerhardt]

Zitat von Uwe Raabe:

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;

Als ein Sicherheitsfanatiker würde ich die Annahme prüfen:

Delphi-Quellcode:

  if Assigned(PersistentClass) then
  begin
    Assert(PersistentClass.InheritsFrom(TMainForm));
    MainFormClass := TMainFormClass(PersistentClass);
  end;