请各路高手帮忙!关于在网页和ActiveForm之间传递参数的问题,谢谢先!!!MyCool请指点!(100分)

  • 主题发起人 主题发起人 hj6
  • 开始时间 开始时间
H

hj6

Unregistered / Unconfirmed
GUEST, unregistred user!
请问大家怎样在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;
我试了一下发现不行,请大家多多指点。谢谢!!!
编写网页用的石JSP。最好能给个例子(Delphi5).
 
这样是可以传递参数的,不过要注意:
这些传递到OCX中的参数,在OCX创建的时候不能获得,需要等一段时间(几十毫秒)才
能够从页面上这些参数,处理的方法是:在OCX中放置一个TTimer,在OnTimer时间里
检测是否获得参数值,如果得到参数,则马上关掉Timer.
procedure TDD_Main.timerGetParamsTimer(Sender: TObject);
begin
if FUserID <> '' then
begin
if Assigned(DD_MainFrm) then
begin
timerGetParams.Enabled := False;
DD_MainFrm.InitMainForm(FUserID);
end;
end;
end;
 
SpeedButton1是在ActiveForm上的吗?
你可以试试将这个按钮放在另一个Form上,再将这个Form成完全覆盖在ActiveForm,
李维有一本书上(好象是《Delphi 5开发人员指南》)说的很清楚
这句SpeedButton1.Caption := Value
改为
FormName.SpeedButton1.Caption := Value
就可以了

 
打开View->Type Library
New Property,可以设为:Read | Write /Raad | Only /Write Only/Read|Write|Write By Ref
选中你刚才New 的Property 可以设置type 等。

在delphi6中好像没有New Property 这些东西,能不能自细说一下
 
多人接受答案了。
 
后退
顶部