如何用FLASH动画中的按钮调用DELPHI窗体 ( 积分: 100 )

请教一个问题：如何用FLASH动画中的按钮调用DELPHI窗体

有专门的OCX控件，
程序调用ｆｌａｓｈ－》调用窗体
好像是flash.ocx

Highpeak老师
能否详细一点,flash安钮语句应该如何写

fscommand

尊敬的王府井老师:我知道用fscommand,但怎么写不知道,是把flash动画放在delphi窗体中吗,flash按钮的动作应如何写

具体细节我也不知道，没有写过类似的代码，但是在ｂａｉｄｕ中应该可以找到用法。[]

应该是在fscommand中接收FLASH动画中的按钮传出的值，根据值的不同打开相应的窗口。

难道就没有高手啦

delphi中的代码，用来接受flashsend的命令，执行代码，例如fscommand("Quit&quot,fscommand("EditRes&quot等等。
procedure TFrmMain.SWFPlayerFSCommand(Sender: TObject; const command,
args: WideString);
begin
//----------------------------------------------------------------------------
if command = 'Quit' then
begin
application.Terminate;
end;
//----------------------------------------------------------------------------
if command = 'EditRes' then
begin
OpenFile.FileName := args;
if OpenFile.Execute then
begin
AddFile := LowerCase(OpenFile.FileName);
SWFPlayer.SetVariable('_ResFile',AddFile);//flash中的一个变量_ResFile，这样就可以把在delphi中取到的值传给flash了。
SWFPlayer.SetVariable('_DelphiResult','EditResFileOk');//_DelphiResult是flash中的一个变量，用来观察
end;
end;
end;

//-----------------------------------------------------------------------
//flash中的代码----------------------------------------------------------
//-----------------------------------------------------------------------
//-----------------------------------------------------------------------------------------
function fPlayer(vProperty, vOldVal, vNewVal, vUserData) {
switch (vNewVal) {
case 'EditResFileOk':
//这里就是你在delphi那边完成了操作后要flash做的事情
break;
}
}
_level0.watch("_DelphiResult", fPlayer);

我的解决办法就这样了，呵呵，不知道还有什么其他的方法....

我跟huangwei8123的做法差不多,但只是用作界面,所以就没
function fPlayer(vProperty, vOldVal, vNewVal, vUserData) {
switch (vNewVal) {
case 'EditResFileOk':
//这里就是你在delphi那边完成了操作后要flash做的事情
break;
}
}
_level0.watch("_DelphiResult", fPlayer);
这一步

我要好好试试,先谢谢大家.

我不会配分,本来人人有分,怎么只给huangwei8123老师拉