财务软件版1楼: 我现在正在开发一个通讯activex控件，是在vacomm这个控件的基础上，二次开发的控件要传递出devicename等vacomm1的属性。
用ActiveForm进行开发的，在类型库中添加了属性，写了get_属性名函数的代码，以及set__属性名函数的代码，但是在调试的时候，在设计器中修改开发控件的属性，竟然毫无作用，只有在运行阶段，设置的话才其作用。这到底是为什么呢？请帮帮忙！！！
function TTSMSInfer.Get_CommName: WideString;
begin
RESULT:=VACOMM1.DeviceName;
end;

procedure TTSMSInfer.Set_CommName(const Value: WideString);
begin
if value=＇＇COM1＇＇ then vacomm1.DeviceName:=＇＇COM1＇＇;
if value=＇＇COM2＇＇ then vacomm1.DeviceName:=＇＇COM2＇＇;
if value=＇＇COM3＇＇ then vacomm1.DeviceName:=＇＇COM3＇＇;
if value=＇＇COM4＇＇ then vacomm1.DeviceName:=＇＇COM4＇＇;
if value=＇＇COM5＇＇ then vacomm1.DeviceName:=＇＇COM5＇＇;
if value=＇＇COM6＇＇ then vacomm1.DeviceName:=＇＇COM6＇＇;

end;
这是其中的一个属性的代码，别的都和它差不多！

2楼: 是不是属性定义位置不对呀 如仓库进销存管理系统

3楼: 我这样做的

先新建一个activeform,然后打开类型库，然后新建一个属性，刷新，然后在实现文件中编写get_属性名函数的定义，应该没问题吧？

4楼: 你看看type library页该属性的flags的选项。

5楼: 我的flags选项中一个都没有选

6楼: 这样对吗？
我没有修改过!