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:
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