OCX参数(100分)

  • 主题发起人 主题发起人 Godfear
  • 开始时间 开始时间
G

Godfear

Unregistered / Unconfirmed
GUEST, unregistred user!
自己写了个OCX,怎样能在其他程序中传参数过来啊?
我type libary中定义了属性,可是在调用时却没有值!
最好给个简单的string例子,谢谢!
 
ocx可以安装的
 
to lzh1983:
我还知道,ocx可以卸载!
 
要传什么参数啊
你直接传个结果过来就行了啊
 
我的问题是怎么样传参数?
 
怎么都没人啊?帮个忙?
 
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来取得值
 
to fei_1:
这样是可以使用附值语句来进行操作,但是在IDE属性面板中添加的值却不能在程序中用?
这是怎么回事啊?关键的问题还是IDE面板中直接附值不行!!
 
....哎,我建议你查查COM编写相关的书再来研究OCX的问题吧
 
to fei_1:
谢谢指导,能不能先直接给出答案,我先解决了问题,有时间再看COM的资料?
 
系统中的caption可以在设计期附值,但是hint属性却不可以,我想要的效果是我自定义的属性也能向caption那样!
 
后退
顶部