unit Unit2;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;type
TForm2 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
constructor Create(Aowner:Tcomponent;S:String);override; //出错
end;var
Form2: TForm2;implementation{$R *.dfm}
constructor TForm2.Create(Aowner:Tcomponent;S:String);
begin
inherited Create(AOwner);
self.Caption:=s;
end;
end.能不能不用reintroduce;overload限定符,请各位不同限定符,帮我搞定啊。
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;type
TForm2 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
constructor Create(Aowner:Tcomponent;S:String);override; //出错
end;var
Form2: TForm2;implementation{$R *.dfm}
constructor TForm2.Create(Aowner:Tcomponent;S:String);
begin
inherited Create(AOwner);
self.Caption:=s;
end;
end.能不能不用reintroduce;overload限定符,请各位不同限定符,帮我搞定啊。
解决方案 »
- ListView问题!
- RemObjects(delphi)怎么连接数据库(SQL)啊?
- 这样的循环应该怎么写啊!
- 有一个c:\list.txt,内有300多个商品编码,现在想导入到memo组件中作操作,请问具体如何操作啊
- synchronize疑问
- 那位有Twindowsmediaplay控件,或者在那里下载\在线等
- 为什么会出现无法locate的情况?
- 谁知道怎样显示显卡的类型,用程序,高手请进!!
- ADO访问数据库,出现“AdoTable1:DataSet not in edit or insert mode"
- corba问题
- 仓库管理软件中需要哪些表?需不需要月报表?
- 怎么样用delphi程序画出弯曲的“管道”图形?
TForm2 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
constructor Create2(Aowner:Tcomponent;S:String);
end;
就行了
以后创建的时候可以form2 := Tform2.newcreate(.....),你用重载是要和父类的create保持一致。
如果不用overload,reintroduce等关键字,那你就重新定义一个create