unit5.~pas

来自「用delphi编写的视频播放器」· ~PAS 代码 · 共 68 行

unit Unit5;   //最大化播放

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus;//自定义消息

type
  TForm5 = class(TForm)
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    procedure N1Click(Sender: TObject);
    procedure FormClick(Sender: TObject);
    procedure FormDblClick(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

uses bofangqi;

{$R *.dfm}

procedure TForm5.N1Click(Sender: TObject); //关闭最大化模式
begin
close;
 form1.MediaPlayer1.Display:=form1.Panel1;
    form1.mediaplayer1.DisplayRect:=form1.panel1.ClientRect;
    form1.visible:=true;


end;

procedure TForm5.FormClick(Sender: TObject); //单击屏幕暂停
begin
form1.MediaPlayer1.pause;
end;

procedure TForm5.FormDblClick(Sender: TObject);  //双击关闭最大化
begin
close;
 form1.MediaPlayer1.Display:=form1.Panel1;
    form1.mediaplayer1.DisplayRect:=form1.panel1.ClientRect;
    form1.visible:=true;
end;

procedure TForm5.N2Click(Sender: TObject);//右击菜单暂停
begin
form1.mediaplayer1.Pause;
end;
procedure TForm5.N3Click(Sender: TObject);//右击菜单播放
begin
form1.mediaplayer1.Play;
end;

end.