Klasse eines Forms übergeben

[Ykcim]

Hallo Zusammen,

ich möchte an eine Procedure einer anderen Unit die Klasse eines Forms weitergeben, ohne das Form in den uses zu erwähnen. Ich habe folgendes versucht:

Delphi-Quellcode:

unit TLogicUnit;

interface

uses WEBLib.Forms, WEBLib.ComCtrls;

type TGeneral = class
  private
    frm_OverView: TWebForm;
  public
    procedure Open_OverView(TKLasse: TClass(TWebForm); WebPage: TWebTabSheet);
end;

var   General: TGeneral;

implementation

procedure TGeneral.Open_OverView(TKLasse: TClass(TWebForm); WebPage: TWebTabSheet);
begin
  if not assigned (frm_OverView) then begin
    frm_OverView:= TKlasse.CreateNew(WebPage.ElementID, nil);    //CreateNew ist nicht bekannt
  end;
end;


initialization
   General := TGeneral.Create;

end.

Der Aufruf sieht so aus:

Delphi-Quellcode:

General.Open_OverView(TForm_OverView, Page_0_Overview);

Jetzt habe ich aber das Problem, dass der Constructor "CreateNew" nicht bekannt ist. In der Klasse TWebForm ist er bekannt.

Wie kann ich das lösen?

Vielen Dank
Patrick

[Neutral General]

Mach folgendes:

Delphi-Quellcode:

type
  TWebFormClass = class of TWebForm;

procedure Open_OverView(TKlasse: TWebFormClass ; WebPage: TWebTabSheet);

[Ykcim]

Vielen Dank!!!!