一个shockwaveflash控件的问题(200分)

  • 主题发起人 主题发起人 anyway
  • 开始时间 开始时间
A

anyway

Unregistered / Unconfirmed
GUEST, unregistred user!
在shockwaveflash中全屏播放时,几乎所有热键都被屏蔽了,ESC根本不能用,请问怎么解决?
另:在更换FLASH影片时,背景色不能改变,必须手动选取,该怎么办?如果能读取影片背景色属性,应该怎么做?谢谢
 
查了一个没有试!
procedure TForm1.MyOnMessage(var MSG: TMSG
var Handle: Boolean);
begin
if ((msg.message=WM_KEYUP) or
(msg.message=WM_KEYDOWN))
and (msg.wParam=VK_Escape) then
begin
handle:=true;
close;
end;
end;



procedure TForm1.FormCreate(Sender: TObject);
begin
application.OnMessage:=MyOnMessage;
end;
 
谢谢
我试试
那背景颜色怎么办?
 
后退
顶部