Arsip: [HELP] ShockwaveFlash

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

halimanh

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

agis

Thanks bgt,,agan,,bener2 ngbantu bgt..
user image
more 11 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