?? bfq.pas
字號(hào):
unit bfq;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, MPlayer, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
MediaPlayer1: TMediaPlayer;
OpenDialog1: TOpenDialog;
Panel2: TPanel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure MediaPlayer1Notify(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
opendialog1.DefaultExt:='AVT';
opendialog1.FileName:='*.*';
//opendialog1.Filter := 'avi files|*.avi|wmv files|*.wmv|midi files|*.mid';
if opendialog1.Execute then
begin
panel2.Caption:='播放文件的名稱:'+opendialog1.FileName;
mediaplayer1.FileName:=opendialog1.FileName;
mediaplayer1.Open;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
mediaplayer1.Next;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
mediaplayer1.Back;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
if button5.Caption='暫停' then
button5.Caption:='恢復(fù)'
else
button5.Caption:='暫停';
mediaplayer1.Pause;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
mediaplayer1.Open;
mediaplayer1.Play;
end;
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
panel2.Caption:='播放完畢!' ;
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -