一个实际的OLE服务器的开发和使用

if i<>-1 then

CustForm.ProductEdit.ItemIndex:=i

else

begin

messagebox(CustForm.Handle,''''你在客户程序指定的商品类型并不存在！'''',''''CustProOLE常规错误'''',MB_ICONWARNING);

CustForm.ProductEdit.ItemIndex:=0;

end;

end;

procedure TCustFormOLE.Set_ProductNum(Value: Integer);

begin

CustForm.ProNumEdit.Value:=Value;

end;

procedure TCustFormOLE.Set_Remark(const Value: WideString);

begin

CustForm.Memo1.Lines.Text:=Value;

end;

initialization

TAutoObjectFactory.Create(ComServer, TCustFormOLE, Class_CustFormOLE,

ciMultiInstance, tmApartment);