unit untPkgInt;interfaceuses
Classes, Forms, Controls,ActnMenus;type
TPlugInClass = class of TComponent;
IHostInterface = interface(IInterface)
['{56A0C98D-7DAF-48C7-9D26-139B656799EC}']
function GetBoolean:Boolean;
function GetVersion:Integer;
end; IPlugInInterface = interface(IInterface)
['{0A5003E5-8704-49CA-9BB9-E634382D1310}']
procedure Init(Host:TWinControl);
procedure SetMenu(var HostMenu:TActionMainMenuBar);
end;implementationend.然后我新建了一个包,在Requires中加上了我刚才编译的包,然后新增了一个form
声明的时候用frmImport = class(TFrmImport,IPlugInInterface),就会提示"IPlugInIntrface没有声明"
Classes, Forms, Controls,ActnMenus;type
TPlugInClass = class of TComponent;
IHostInterface = interface(IInterface)
['{56A0C98D-7DAF-48C7-9D26-139B656799EC}']
function GetBoolean:Boolean;
function GetVersion:Integer;
end; IPlugInInterface = interface(IInterface)
['{0A5003E5-8704-49CA-9BB9-E634382D1310}']
procedure Init(Host:TWinControl);
procedure SetMenu(var HostMenu:TActionMainMenuBar);
end;implementationend.然后我新建了一个包,在Requires中加上了我刚才编译的包,然后新增了一个form
声明的时候用frmImport = class(TFrmImport,IPlugInInterface),就会提示"IPlugInIntrface没有声明"
因为你引用了PkgInt.dcp,delphi会自动地产生一些连接信息
就好像是使用动态链接库中的函数
用external声明一样