Einzelnen Beitrag anzeigen

BerndS

Registriert seit: 8. Mär 2006
Ort: Jüterbog
480 Beiträge
 
Delphi 11 Alexandria
 
#2

AW: TForm Klasse dynamisch erstellen ja nachdem ob Klasse vorhanden ist

  Alt 15. Nov 2021, 16:34
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;
Bernd
  Mit Zitat antworten Zitat