unit1.pas

来自「Delphi basic program. Basic programing」· PAS 代码 · 共 58 行

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, MPlayer, ExtCtrls;

type
  TForm1 = class(TForm)
    OpenDialog1: TOpenDialog;
    Panel1: TPanel;
    MainMenu1: TMainMenu;
    MediaPlayer1: TMediaPlayer;
    N1: TMenuItem;
    AVI1: TMenuItem;
    N2: TMenuItem;
    procedure AVI1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure MediaPlayer1Notify(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.AVI1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    with MediaPlayer1 do
    begin
     filename:=opendialog1.FileName;
     open;
     display:=panel1;
     displayRect:=Rect(0,0,panel1.Width,panel1.Height);
     notify:=true;
    end;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
  close;
end;

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
  MessageDlg('Media Control Method Execute Finish',mtInformation,[mbok],0);
end;

end.