TMyForm = class(TForm)
private
MyClass : TMyClass;自己定义的类,不是VCL组件类。
public
constructor Create(AOwner: TComponent; MyClass: TMyClass);
destructor Destroy; override;
end;...constructor TMyForm.Create(AOwner: TComponent; MyClass: TMyClass);
begin
inherited Create(AOwner);
self.MyClass := MyClass;
end;
下一步如何在Application.CreateForm中调用这个构造函数??
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货