小
小龙PRL
Unregistered / Unconfirmed
GUEST, unregistred user!
新建一工程Active form ,在上面添加button1,然后在TLB中添加属性buttonCaptoin
在impl中,添加了如下内容:
function TActiveFormX.Get_ButtonCaption: WideString;
begin
Result:=button1.Caption;
end;
procedure TActiveFormX.Set_ButtonCaption(const Value: WideString);
begin
button1.Caption:=Value;
end;
生成OCX控件后,用VB调用(DELPHI自己调用也试过了),在设计状态修改了buttonCaption属性后,运行时又恢复了原来的。
请给出解决的办法
在impl中,添加了如下内容:
function TActiveFormX.Get_ButtonCaption: WideString;
begin
Result:=button1.Caption;
end;
procedure TActiveFormX.Set_ButtonCaption(const Value: WideString);
begin
button1.Caption:=Value;
end;
生成OCX控件后,用VB调用(DELPHI自己调用也试过了),在设计状态修改了buttonCaption属性后,运行时又恢复了原来的。
请给出解决的办法
]给我吧