急!ActiveFrom中怎样添加事件?(100分)

  • 主题发起人 主题发起人 阿蛮
  • 开始时间 开始时间

阿蛮

Unregistered / Unconfirmed
GUEST, unregistred user!
在自制ActiveFrom中,怎样添加事件并触发他?
 
ActiveFrom是一个窗口名,还是窗口激活时的事件?
 
是我自定义的事件。
 
在你自定义的事件中添加事件,怎么听起来有些晕,是不是的把一些新的执行语句添加到
Activeform事件中啊
 
在类型库中添加(打开*.TLB文件),如果你是指要在HTML中响应你的事件,这样操作(以下是Copy的一段,来源未知):

打开Type Library在IActiveFormX中New一个方法,Delphi会自动完成它的声明工作,
你只要完成其中的实现就可以了。如:增加一个SaveFile方法,Delphi自动完成
procedure TActiveFormX.SaveFile;
begin
//你自己在这里完成需要的功能
end;
在网页上调用就可以直接 objID.SaveFile();就可以直接调用方法了

如果需要从ActiveObje通知网页返回参数的话,可以使用Event
在IActiveFormXEvents中加入一个方法OnSaveFile(name : widestring);
在代码中需要产生这个事件的情况就可以
procedure TActiveFormX.SaveFile;
begin
//你自己在这里完成需要的功能
if FEvents <> Nil then
FEvents.OnSaveFile('文件名称');//这样网页就能得到'文件名称'的值了
end;

网页中只要
<SCRIPT LANGUAGE=javascript FOR=objID EVENT=OnSaveFile>
<!--
alert(arguments[0]);//这样表示取得第一个参数的值
//-->
</SCRIPT>

这样就可以完成从网页调用ActiveX的方法,和ActiveX返回参数给网页的方法
 
to pihome: 多谢,好象明白了一些,我试试看。[:)]
 
to pihome:
“如果需要从ActiveObje通知网页返回参数的话,可以使用Event
在IActiveFormXEvents中加入一个方法OnSaveFile(name : widestring);”
Event是怎样加入的?也是在Type Library里?
我在Type Library的IActiveFormXEvents加入一个方法,但不知道怎样带参数(name: WideString)。而且在 FEVents.里也没有找到OnSaveFile,怎么回事?
在这一步里的具体操作是怎样的?[:(]
 
TLB中添加,在IActiveFormXEvents New一个方法,取名OnSaveFile
右侧第一页为Attributes让它保持默认值,不需要更改,切换到第二页Parameters,参数如下:
Name Type Modififier
name BSTR (in)

 
加完了,然后呢?我怎么在pas文件里没有看到他给我添加OnSaveFile事件呢?
 
接受答案了.
 

Similar threads

后退
顶部