S swac Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-19 #1 我用 delphi做了一个简单的flash播放器，可是不知道怎样实现“全屏”这一菜单功能， flash自带的播放器有这一菜单啊，在delphi中具体应怎样做？
P pihome Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-19 #2 全屏？ 先把当前窗体坐标、大小等信息记录下来，设置窗体的边框风格为无边框 Form1.BorderStyle:=bsNone; 设置窗体的大小为屏幕大小 with Form1do begin Left:=0; Top:=0; Width:=Screen.Width; Height:=Screen.Height; end; 恢复时根据记录下的原状态恢复就OK了 你的Flash为设为Align:=alClient; 同时窗体大小变化时 with Flashdo begin Hide; Show; SetFocus; end; 才能保证窗体变化时Flash也跟着变化
全屏？ 先把当前窗体坐标、大小等信息记录下来，设置窗体的边框风格为无边框 Form1.BorderStyle:=bsNone; 设置窗体的大小为屏幕大小 with Form1do begin Left:=0; Top:=0; Width:=Screen.Width; Height:=Screen.Height; end; 恢复时根据记录下的原状态恢复就OK了 你的Flash为设为Align:=alClient; 同时窗体大小变化时 with Flashdo begin Hide; Show; SetFocus; end; 才能保证窗体变化时Flash也跟着变化
H handong Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-19 #4 我在DELPHI 中播放FLASH，添加了FLASH。OCX之后 电脑里用不用装FLASE啊
风 风无影 Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-19 #6 设置窗口属性为无边线之后，全屏别忘了使某一控件得焦点，然后又使Flash控件得到焦点，不 不然不会全屏。
