自己写了个OCX，怎样能在其他程序中传参数过来啊？ 我type libary中定义了属性，可是在调用时却没有值！ 最好给个简单的string例子,谢谢！
G Godfear Unregistered / Unconfirmed GUEST, unregistred user! 2008-09-09 #1 自己写了个OCX，怎样能在其他程序中传参数过来啊？ 我type libary中定义了属性，可是在调用时却没有值！ 最好给个简单的string例子,谢谢！
G Godfear Unregistered / Unconfirmed GUEST, unregistred user! 2008-09-09 #3 to lzh1983: 我还知道，ocx可以卸载！
F fei_1 Unregistered / Unconfirmed GUEST, unregistred user! 2008-09-09 #7 function Get_ProductID: WideString; safecall; procedure Set_ProductID(const Value: WideString); safecall; implementation ProductID: String; function TDwgTool.Get_ProductID: WideString; begin Result := WideString(ProductID); end; procedure TDwgTool.Set_ProductID(const Value: WideString); begin ProductID := String(Value); end; 然后在其它的过程里面就可以直接用ProductID这个值了，这就是传进OCX的值。 传的时候可以用OBJ.ProductID = '' 来设置值或者 a=OBJ.ProductID来取得值
function Get_ProductID: WideString; safecall; procedure Set_ProductID(const Value: WideString); safecall; implementation ProductID: String; function TDwgTool.Get_ProductID: WideString; begin Result := WideString(ProductID); end; procedure TDwgTool.Set_ProductID(const Value: WideString); begin ProductID := String(Value); end; 然后在其它的过程里面就可以直接用ProductID这个值了，这就是传进OCX的值。 传的时候可以用OBJ.ProductID = '' 来设置值或者 a=OBJ.ProductID来取得值
G Godfear Unregistered / Unconfirmed GUEST, unregistred user! 2008-09-10 #8 to fei_1: 这样是可以使用附值语句来进行操作，但是在IDE属性面板中添加的值却不能在程序中用？ 这是怎么回事啊？关键的问题还是IDE面板中直接附值不行！！
F fei_1 Unregistered / Unconfirmed GUEST, unregistred user! 2008-09-10 #9 ....哎，我建议你查查COM编写相关的书再来研究OCX的问题吧
G Godfear Unregistered / Unconfirmed GUEST, unregistred user! 2008-09-10 #10 to fei_1: 谢谢指导，能不能先直接给出答案，我先解决了问题，有时间再看COM的资料？
G Godfear Unregistered / Unconfirmed GUEST, unregistred user! 2008-09-10 #11 系统中的caption可以在设计期附值，但是hint属性却不可以，我想要的效果是我自定义的属性也能向caption那样！
