ActiveForm 的问题(100分)

  • 主题发起人 主题发起人 Yong
  • 开始时间 开始时间
Y

Yong

Unregistered / Unconfirmed
GUEST, unregistred user!
我的ActiveForm的Interface改变了,如何让客户端的用户在访问网页时能自动下载OCX文件
 
升级版本号,用delphi编译发布,重新编辑网页中activexfrm的版本号,
 
搞定,谢谢楼上的兄弟,能在问你一个问题吗?如何向ActiveForm传递消息:
比如要根据Login的用户来改变ActiveForm的界面
 
用数据库吧?在用户名密码表中定义一个识别字段,登陆时判断用户名的识别字段的不同,
更换界面,更换界面可用tabcontrol或者pagecontrol
 
你没明白我的意思,其实我象问如何向ActiveForm里传参数,几个ActiveForm如何互通消息
 
打开ActiveForm
打开View->Type Library
New Property,可以设为:Read | Write /Raad | Only /Write Only/Read|Write|Write By Ref
选中你刚才New 的Property 可以设置type 等。
存盘
现在会有一个 Get_xxx,Set_xxx 的过程你可以用了。
这个Property 是可以在网页里传递的。
例如:我设置了一个cp,就可以在网页里传递给我的ActiveXForm
<OBJECT
classid="clsid:0BADEF1F-5995-4DF1-A61D-E55422FDC901"
codebase="WSTest.OCX#Version=1,0,1,1"
width=130
height=28
align=center
hspace=0
vspace=0
>
<PARAM NAME="cp" VALUE="down load">
</OBJECT>
在程序里可以这么写:
procedure Twsgmjj.Set_cp(const Value: WideString);
begin
SpeedButton1.Caption := Value
//将按钮的Catption 的值设为网页传递过来的参数
end;
你的问题,可以在Set_xx 里根据不同用户传递过来的ID/Name等信息,更换ActiveXForm的外观

就这样了,刚来大富翁,回答问题不太会描述,比较罗索,不知道我说的清楚不?

 
to mycool :
非常感谢,前几天我自己也搞定了,不过我还是要感谢你
 
to Mycool and yong
在delphi6中如何操作实现两个activeform的通信
 
后退
顶部