Arsip: [HELP] ShockwaveFlash

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

halimanh

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

agis

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

agis

Thanks bgt,,agan,,bener2 ngbantu bgt..
more ...
  • Pages:
  • 1
Share to

AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now: https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com