Ini adalah program jadinya, kalo cara buatnya sbb;
Desain form sampean spt brikut ;
Komponen yg dibutuhkan :
1. TPanel1 di tab standar
2. TMediaPlayer di Tab System
3. TOpenDialog di tab Dioalog
4. TMainMenu di tab standar
Cara buat adalah tambahkan komponen yg dibutuhkan spt di atas. Khusus MainMenu, klik 2x
Isikan dengan nama File dan isi di dalamnya Dgn nama OPen dan Exit. Berikut Listing Selengkapnya;
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, MPlayer, ExtCtrls;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
Panel1: TPanel;
OpenDialog1: TOpenDialog;
MediaPlayer1: TMediaPlayer;
File1: TMenuItem;
Open1: TMenuItem;
Exit1: TMenuItem;
procedure Open1Click(Sender: TObject);
procedure Exit1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
// klik pada File Milik MainMenu, pilih Open dan ketik listing berikut
procedure TForm1.Open1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Panel1.Caption:=OpenDialog1.FileName;;
MediaPlayer1.FileName:=OpenDialog1.FileName;
MediaPlayer1.Display:=panel1;
MediaPlayer1.Open;
end;
end;
// klik pada File Milik MainMenu, pilih Exit dan ketik listing berikut
procedure TForm1.Exit1Click(Sender: TObject);
begin
Application.Terminnate;
// atau
close;
end;
end.
Kurang lebih sperti itu dech cara buatnya, smoga bermanfaat yach.