active form 做OCX文件的问题

Question

怎么在里面加一个自定义的属性，并且像Caption属性一样能在DELPHI的属性栏中显示出来？
我在TYPE LIBRARY里写了一个Password的READ/WRITE属性后，老是提示代码里的Password未定义

Answer 1

Password的READ/WRITE属性
该类创建了么？
如果是变量，是全局的么？

Answer 2

我是这么做的：新建一ACTIVE FORM，然后VIEW-》TYPE LIBRARY，在InterFface下添加Read/Write Property,命名为Password,类型是BSTR，然后在代码中会出现
function Get_Password: WideString; safecall;
procedure Set_Password(const Value: WideString); safecall;
加代码后是：
function Get_Password: WideString; safecall;
begin
  Result:=WideString(Password);
end;procedure Set_Password(const Value: WideString); safecall;
begin
  Password:=WideString(Value);
end;运行结果：Password未定义错误我缺少了什么呢？

Answer 3

上面的代码中我多写了2个safecall，实际上是没有的

Answer 4

你的Password在哪里定义了？？
只是定义了password属性，在这里getter和setter都是在读这个属性而已。
应该是在私有变量中定义FPassword：Widestring；
Getter和Setter都去读取私有变量吧

Answer 5

我试了，可以了，但我发现这样放到WORD中后，PASSWORD不会保存，关闭WORD后就没了，我想让它保存怎么办？我看WORD自带的lable就可以保存CAPTION属性