Arsip: [HELP] ShockwaveFlash

 
user image
more 7 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 7 years ago

halimanh

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

agis

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

agis

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