有FlashShockwave使用经验的请帮忙--------->>>>>>>>>>>

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
 sendmessage(ShockwaveFlash1.handle,wm_lbuttondown,0,0);
  sendmessage(ShockwaveFlash1.handle,wm_lbuttonup,0,0);
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  sendmessage(button1.handle,wm_keydown,vk_space,1);
  sendmessage(button1.handle,wm_keyup,vk_space,1);
  timer1.enabled:=false;end;procedure TForm1.FormResize(Sender: TObject);
begin
timer1.Enabled:=true;
end;

Answer 1

oicq的广告肯定就是用的这个active吧.
它的也是这个道理么..?
是不是delphi对这个activex封装的不好呢?

Answer 2

ShockwaveFlash1.hide;
ShockwaveFlash1.show;

Answer 3

全屏功能：
Form1.BorderStyle:=bsNone; //取消窗口的边框
Form1.WindowState:=wsMaximized;//窗口最大化
ShockWaveFlash1.Align:=alclient;
Recreatewnd;//重建窗口
当然你还要把Form1上的其他控件的visible设为flase。

Answer 4

还漏了一点，
要将shockwaveflash的tabstop设为false，否则shockwaveflash会截断key的信息，用key就无法恢复原窗口。