//控件(ocx)安装后可正常使用.
////////////////////////////////////////////////////////////////////////
type  _DKView = dispinterface;
  _DKViewEvents = dispinterface;  KView = _DKView;  PSmallint1 = ^Smallint; {*}  _DKView = dispinterfaceprocedure EngineSetSetting(dwIdent: Integer; dwIndex: Integer; value: OleVariant); dispid 89;//-------------------对应过程2
end;
{.....................}TKView = class(TOleControl)
private
function  GetControlInterface: _DKView;public
procedure EngineSetSetting(dwIdent: Integer; dwIndex: Integer; value: OleVariant);//--------------------对应过程1
property  DefaultInterface: _DKView read GetControlInterface;
end;implementationuses ComObj;procedure TKView.EngineSetSetting(dwIdent: Integer; dwIndex: Integer; value: OleVariant);//---------------过程2EngineSetSetting
begin
  DefaultInterface.EngineSetSetting(dwIdent, dwIndex, value);//--------------过程1EngineSetSetting
end;end.
////////////////////////////////////////////////////////////////////////问题是:
问题1;
对于过程2EngineSetSetting的声明,
_DKView = dispinterface
procedure EngineSetSetting(dwIdent: Integer; dwIndex: Integer; value: OleVariant); dispid 89;其中关键是dispid是说明什么?
后面的89是什么值?问题2:
过程体
procedure TKView.EngineSetSetting(dwIdent: Integer; dwIndex: Integer; value: OleVariant);
begin
  DefaultInterface.EngineSetSetting(dwIdent, dwIndex, value);
end;
实现了什么功能?//----------------------------------------------------------------------
先谢过各位.