Arsip: [HELP] ShockwaveFlash

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...
more 8 years ago
halimanh
if OpenDialog1.FileName='' then diganti if OpenDialog1.FileName<>'' then
Juga nggak perlu pake GetCurrentDir()
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
- Project Group dalam Lazarus
- FastPlaz Database Explorer
- Release: FastPlaz Super Mom v0.12.22
- PascalClass #3: Web Development with Free Pascal
- Makna Pascal di Pascal Indonesia
- Kulgram : Instalasi Lazarus di Perangkat Berbasis ARM
- PascalClass #1: Analisa Database dan Machine Learning
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
- Mengenal OXYGENE – Pascal For .NET
- PascalTalk #5: UX: Research, Design and Engineer
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 months ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 1 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 8 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 8 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 8 years ago
Random Topic
- tulung tulung ..... Getting IP, Subnet, Gateway
by Manz in Network, Files, I/O & System more 13 years ago - tentang dual-core ...
by xerion in Tip n Trik Pemrograman more 13 years ago - Aplikasi Apotik
by andip70 in Hal umum tentang Pascal Indonesia more 13 years ago - help error... lagi
by putukaca in Hal umum tentang Pascal Indonesia more 14 years ago - Gimana cara buat aplikasi TV Tuner?
by EkoIndri in Multimedia & Graphic Enhancement more 14 years ago - Validasi sesuatu yang unique...
by Random in Hal umum tentang Pascal Indonesia more 13 years ago - AQ3: Cannot Perform this operation an a closed dataset
by ade_jm in Hal umum tentang Pascal Indonesia more 8 years ago - Mohon maaf Lahir dan Batin, Merdeka !!!
by LuriDarmawan in OOT more 10 years ago - Gimana cara proteksi paling aman ?
by EkoIndri in Tip n Trik Pemrograman more 15 years ago - Retrieve table structure
by bboyz in Tip n Trik Pemrograman more 12 years ago