我新建了一个对话框叫MyDialog;
我重载了他的CREATE函数;代码如下:
procedure Create(AOwner: TComponent; ACaption: String);overload;
begin
inherited Create(AOwner);
Caption := ACaption;
end;
声明为PUBLIC的。我新建其他的对话框都是继承MyDialog的。
但是我用如下代码动态创建编译就出错的。
//FrmDictionary是继承MyDialog的
FrmDictionary := TFrmDictionary.Create(Self, '数据字典');
try
FrmDictionary.ShowModal;
finally
FrmDictionary.Free;
end;出错信息:[Error] UMain.pas(93): This form of method call only allowed for class methods
[Fatal Error] ZCGL.dpr(10): Could not compile used unit 'UMain.pas'本人学的不好,还望多多帮助,绝对给分
我重载了他的CREATE函数;代码如下:
procedure Create(AOwner: TComponent; ACaption: String);overload;
begin
inherited Create(AOwner);
Caption := ACaption;
end;
声明为PUBLIC的。我新建其他的对话框都是继承MyDialog的。
但是我用如下代码动态创建编译就出错的。
//FrmDictionary是继承MyDialog的
FrmDictionary := TFrmDictionary.Create(Self, '数据字典');
try
FrmDictionary.ShowModal;
finally
FrmDictionary.Free;
end;出错信息:[Error] UMain.pas(93): This form of method call only allowed for class methods
[Fatal Error] ZCGL.dpr(10): Could not compile used unit 'UMain.pas'本人学的不好,还望多多帮助,绝对给分
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货