TForm Klasse dynamisch erstellen ja nachdem ob Klasse vorhanden ist

[fisipjm]

Zitat von BerndS:

Ich habe das mal schnell hingetippt ohne zu testen. Aber so in etwas würde ich das machen, wobei die Funtion GetMainFormClass die entsprechende Formclass ermitteln müsste.

Delphi-Quellcode:

type 
  TMainFormClass = class of TMainForm;

...
var 
  FC: TMainFormClass ;
  F: TMainForm; 
begin
  FC := GetMainFormClass(TableName);
  F := TC.Create(...);
  try
    ....
    F.ShowModal;
  finally
    F.Release;
  end;

 
end;

Was macht GetMainFormClass ?