- Buat sebuah aplikasi baru. Set nama form utama menjadi mediaform.
- Masukkan komponen-komponen berikut :

Komponen yang Digunakan untuk Multimedia
- Sorot komponen tOpenDialog. Klik ganda property filter untuk menampilkan kotak dialog filter. Isi kolom-kolom kotak dialog sebagai berikut :
Filter Name : Mmedia files
Filter : *.wav;*.mid;*.avi”.
Klik OK jika selesai - Sorot komponen tombol Browse. Ketik kode perintah untuk event handler onclick sebagai berikut:
Delphi | copy code | ? 1 procedure Tmmediaform.Button1Click(Sender: TObject);
2 begin3 if OpenDialog1.execute then
4 begin5 Edit1.Text := OpenDialog1.FileName;
6 MediaPlayer1.FileName := OpenDialog1.FileName;
7 MediaPlayer1.Open;
8 end;
9 end;
- Buat sebuah form baru. Set properti dari form tersebut sebagai berikut :
Properti——————————> Nilai
Name ———————————> Displayform
Borderstyle ————————-> bsToolWindow - Simpan file unit displayform dengan nama uDisplay.PAS.
- Sorot kembali form mediaform anda. Pada klausa uses tambahkan file unit uDisplay. Seperti tampak pada kode berikut :
Delphi | copy code | ? 1 uses2 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
3 Dialogs, StdCtrls, MPlayer, uDisplay;
- Sorot komponen tMediaPlayer. Buat event handler onclick sebagai berikut :
Delphi | copy code | ? 01 procedure Tmmediaform.MediaPlayer1Click(Sender: TObject;
02 Button: TMPBtnType; var DoDefault: Boolean);
03 begin04 if Button = btplay then
05 begin06 if MediaPlayer1.DeviceType = dtavivideo then
07 begin08 MediaPlayer1.display := displayform;
09 displayform.Width := MediaPlayer1.DisplayRect.Right;
10 displayform.Height := MediaPlayer1.DisplayRect.Bottom;
11 displayform.Show;
12 end13 else14 displayform.Close;
15 end;
16 end;
17 - Simpan project anda dan jalankan ! Coba dengan memanggil beberapa file multimedia
- Menggunakan komponen tOpenDialog dan mengeset filter file dari komponen tOpenDialog tersebut.
- Menggunakan komponen tMediaPlayer untuk memanggil dan menjalankan beberapa file multimedia
- Menampilkan sebuah form dengan metode Show
Metode show adalah metode untuk menampilkan sebuah form. Selama form yang dipanggil terbuka, form induk/pemanggil masih dapat disorot/diaktifkan
Sedangkan metode ShowModal, form induk tidak dapat disorot selama form anak masih terbuka/aktif.
.jpg)


