[HELP] ShockwaveFlash

 
user image
more 8 years ago

agis

procedure TForm1.BitBtn1Click(Sender: TObject); begin if OpenDialog1.Execute then begin if OpenDialog1.FileName='' then begin ShockwaveFlash1.Movie:=GetCurrentDir +'(OpenDialog1.FileName)'; ShockwaveFlash1.Play; end; end; end; procedure TForm1.FormCreate(Sender: TObject); begin ShockwaveFlash1.Movie:=GetCurrentDir + '/flash2.swf'; ShockwaveFlash1.Play; end; para master listing diatas udah bener blm bwt ngrubah tampilan flash1 menjadi flash2 yg udah dipilih pake opendialog? mohon bantuannya para master,,,pliiss,,,ane butuh bgt...
user image
more 8 years ago

halimanh

if OpenDialog1.FileName='' then diganti if OpenDialog1.FileName<>'' then Juga nggak perlu pake GetCurrentDir()
user image
more 8 years ago

agis

Thanks bgt,,agan,,bener2 ngbantu bgt..
user image
more 8 years ago

agis

Thanks bgt,,agan,,bener2 ngbantu bgt..
more ...
  • Pages:
  • 1
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com