//其中有部分代码是这样的:TKPrnt = class(TOleControl)protected function Get_PrinterNameCap(index: Smallint): WideString; function Get_IOStgFltCap(index: Smallint): WideString;public property DefaultInterface: _DKPrnt read GetControlInterface; implementationfunction TKPrnt.Get_PrinterNameCap(index: Smallint): WideString; begin Result := DefaultInterface.Get_PrinterNameCap(index); // ----------------------->未定义Get_PrinterNameCap end;function TKPrnt.Get_IOStgFltCap(index: Smallint): WideString; begin Result := DefaultInterface.Get_IOStgFltCap(index); // ----------------------->未定义Get_IOStgFltCap end;end.
在DELPHI中你要把OCX的控件,注册后导入才行,你这样是没导入吧
楼上:我以前安装pas格式的控件都是在component-install component成功之后就可以使用的.我以后没有注册过OCX格式控件的,我的探作是: component-import active control进行安装.按如上的步骤,有一个.ocx控件已成功安装,但安装另一个时就出现上述错误.请教我的操作有误吗?我的环境是DELPHI6
function Get_PrinterNameCap(index: Smallint): WideString;
function Get_IOStgFltCap(index: Smallint): WideString;public
property DefaultInterface: _DKPrnt read GetControlInterface;
implementationfunction TKPrnt.Get_PrinterNameCap(index: Smallint): WideString;
begin
Result := DefaultInterface.Get_PrinterNameCap(index);
// ----------------------->未定义Get_PrinterNameCap
end;function TKPrnt.Get_IOStgFltCap(index: Smallint): WideString;
begin
Result := DefaultInterface.Get_IOStgFltCap(index);
// ----------------------->未定义Get_IOStgFltCap
end;end.
component-import active control进行安装.按如上的步骤,有一个.ocx控件已成功安装,但安装另一个时就出现上述错误.请教我的操作有误吗?我的环境是DELPHI6