用delphi从播放flash的ocx导入生成了TShockwaveFlash控件,在exe文件中,OnFSCommand和onFlashCall等事件都能够触发。
然后,做了一个ActiveForm,上面放置一个TShockwaveFlash控件,可以加载Flash对象,但是怎么也触发不了OnFSCommand和OnFlashCall等事件,这是为什么呢?是TShockwaveFlash组件在ActiveForm上的安全原因禁止触发上述事件呢?还是通过对TShockwaveFlash的改造可以触发上述事件呢?翻了2天csdn的帖子,该问题未果,呼唤高手来出手相助啊~~~~~~分数不够还可以再加,只要能解决问题,不惜血本了!!!!

解决方案 »

  1.   

    你的意思是要把这个事件放出来,做为你的ActiveX的事件?
      

  2.   

    是这样,我在TShockwaveFlash组件的OnFSCommand事件响应里写了代码,很简单,就是个ShowMessage而已,把TShockwaveFlash放在ActiveForm上后,这个代码没有被执行,在exe的form上是可以执行的。
      

  3.   

    OnFSCommand 需要写代码的。。
      

  4.   

    procedure TForm1.FP1FSCommand(ASender: TObject; const command,
      args: WideString);
    begin
      ShowMessage(command);
    end;OnFSCommand 里写了代码,如上!现在的问题就是这个代码在ActiveForm上并不触发执行呀!