procedure ShutDownMouse(var Msg: TMsg; var Handled: Boolean); public
end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject); var OpenName:String; begin OpenDialog1.Filter:= 'Flash文件(*.swf)'; if opendialog1.execute then ShockwaveFlash1.Movie:=opendialog1.FileName; ShockwaveFlash1.Play; end;
procedure TForm1.BitBtn2Click(Sender: TObject); begin ShockwaveFlash1.StopPlay; end;
procedure TForm1.ShutDownMouse(var Msg: TMsg; var Handled: Boolean); begin if (Msg.message = WM_RBUTTONDOWN) and (msg.hwnd = ShockwaveFlash1.Handle) then Handled:= true; end; end.
