说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

大家来讨论一下如何在delphi中用flash制作的动态菜单,按钮?(注意,不是播放FLASH动画)

编辑:说三道四文库 发布时间:2018-02-23 06:40
HTML文档下载 WORD文档下载 PDF文档下载
即是说,用 flash来制作delphi程序的界面,关键问题,在 flash中调用delphi窗体!
初步设想,用flash 的action script!
(vb坛子里有相关贴,本人看不懂vb代码,同时也想继续发扬delphi做漂亮程序界面的优良传统,只要VB做得到的,delphi一定……,还是不说了吧!)

热忱邀请flash和delphi双料选手(还是不说高手吧)参加!
来吧!来吧!相约CSDN!
呵呵,这个创意不错,关注!
等……
没人回?
?
创意是很好,但是这个ocx是没有这个功能的吧,莫非你有新的版本?
另外 vb 论坛有吗 ?都只是播放flash的吧。
我看漏了?
指出来是那篇,我看能不能尽力翻译一下,共同提高是这里的宗旨。
“在flash中调用delphi‘窗体’” 此句何解?
vb 论坛相关贴


http://www.csdn.net/expert/topic/131/131111.shtm
看明白了。
1)在Flash里的Action中,对按钮的 OnRelease()事件设置FSCommand命令

在FScommand的对话框里有两栏:Command和Argument,这里面所填的内容将被传到调用的函数里作为参数。一般说来:Command栏填的是你想调用的函数名;Argument栏则填上函数使用的参数。
如:Command栏填“call_alert”;Argument栏填“Hello world” 

2)Delphi中
OnFSCommand事件
//这里Command和Args的用法有点混淆视听,不过能出来就行了。
procedure TForm1.ShockwaveFlash1FSCommand(Sender: TObject; const command,
  args: WideString);
begin
     if UpperCase(command)='WIN1' then win1.ShowModal;
     if UpperCase(command)='WIN2' then win2.ShowModal;
end;
应该翻译的没错吧
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘