ShockwaveFlash能加个onclick和mousemove事件吗

Question

需要把ShockwaveFlash控件当作一个按钮来使用，有办法实现吗?

Answer 1

可以试试 args 传回的值判断执行程式Flash1FSCommand(Sender: TObject; const command,args: WideString);

Answer 2

就是说,做一个SWF,里面有按钮,程式里导入SWF,然后点SWF里的按钮,就响应Flash1FSCommand,传回command和args的值根据值来判断执行,如:procedure TFrmMain.Flash1FSCommand(Sender: TObject; const command,
  args: WideString);
begin
  if Command= 'closefrm' Then  // swf里传回的
  Begin
    ShowMessage('程序关闭!');
    Close;
  End;
end;

Answer 3

btw 我不会做这样的FLASH. 但事实上,我所说的是可以实现. 因为我曾经调用过这样的SWF,只是我不会做这样的SWF

Answer 4

这太复杂了，我想通过设置一个透明控件来实现，但发现怎么样也不能把它放在flash之上，新建一个image，用bringtofront和                 Image7:= TImage.Create(Self);
                  Image7.Parent:=ShockwaveFlash1;都不行，是过将flash sent to back 也不行

Answer 5

发现 ShockwaveFlash 的 onenter 事件有类似 onclick的功能

Answer 6

flash 和Delphi可以传参数的
你在flash里做四个按钮,设置一个变量(整形).通过按钮改变变量的值
Delphi里通过FSCommand读哪个变量值
然后
case 变量 of
1:
2:
3:
end

Answer 7

谢谢大家
ShockwaveFlash 的 onenter 事件搞定了