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那样!