Arsip: [HELP] ShockwaveFlash

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...
more 12 years ago
halimanh
if OpenDialog1.FileName='' then diganti if OpenDialog1.FileName<>'' then
Juga nggak perlu pake GetCurrentDir()
more ...
- Pages:
- 1
reply |
Report Obsolete
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
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- mengedit 2 buah data yang sama
by tara in Lain-lain more 15 years ago - Delphi No! Java Yes..
by delphi1st in OOT more 16 years ago - tanya.....aplikasi dibuat client server
by Iansx in Hal umum tentang Pascal Indonesia more 17 years ago - Yang baru sejak Delphi 7
by deLogic in Tip n Trik Pemrograman more 17 years ago - Tolong dikoreksi...
by saladin in OOT more 16 years ago - Open ShortCut Folder
by juki in Hal umum tentang Pascal Indonesia more 16 years ago - Delphi utk portable device ( HP, PDA, dsb )
by meinardi in Tip n Trik Pemrograman more 19 years ago - Selisih anggal dan Jam
by ayocool in Hal umum tentang Pascal Indonesia more 18 years ago - rent a coder
by yohanesagusb in Hal umum tentang Pascal Indonesia more 15 years ago - Seorang cupu mo nanya nih
by alfian in Enginering more 19 years ago