如何在程序是捕捉由flash控件打开的flash图形中的按扭的click事件，以及操作flash图形中的对象。

Question

rt.感谢。

Answer 1

procedure Tmoveplayform.suiButton1Click(Sender: TObject);
begin
if opendialog1.Execute then
  shockwaveflash1.Movie:=opendialog1.FileName;
  shockwaveflash1.ScaleMode:=2;//ScaleMode:缩放模式，0=ShowAll、1= NoBorder、2 = ExactFit；
  Trackbar1.Min:=0;
  TrackBar1.Max:=shockwaveflash1.TotalFrames;
end;procedure Tmoveplayform.suiButton2Click(Sender: TObject);
begin
shockwaveflash1.Play;
//statictext1.Caption:=inttostr(shockwaveflash1.CurrentFrame);
end;procedure Tmoveplayform.suiButton3Click(Sender: TObject);
begin
shockwaveflash1.Stop;
end;procedure Tmoveplayform.suiButton4Click(Sender: TObject);
begin
shockwaveflash1.StopPlay;
end;procedure Tmoveplayform.FormShow(Sender: TObject);
begin statictext1.Caption:='    '+inttostr(shockwaveflash1.CurrentFrame)+'/'+inttostr(trackbar1.Max);
end;
procedure Tmoveplayform.TrackBar1Change(Sender: TObject);
var i:integer;
begin
 i:=trackbar1.Position;
 shockwaveflash1.GotoFrame(i);
end;