读书人

ShockwaveFlash能加个onclick和mousem

发布时间: 2012-02-28 13:06:36 作者: rapoo

ShockwaveFlash能加个onclick和mousemove事件吗
需要把ShockwaveFlash控件当作一个按钮来使用,有办法实现吗?

[解决办法]
就是说,做一个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;
[解决办法]
flash 和Delphi可以传参数的
你在flash里做四个按钮,设置一个变量(整形).通过按钮改变变量的值
Delphi里通过FSCommand读哪个变量值
然后
case 变量 of
1:
2:
3:
end

读书人网 >.NET

热点推荐