unit4.pas

铁路道口管理系统 开发源码 大家随便看看 呵呵

unit Unit4;

interface

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

type
  TForm4 = class(TForm)
    Panel1: TPanel;
    OpenDialog1: TOpenDialog;
    Panel2: TPanel;
    MediaPlayer1: TMediaPlayer;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation
uses unit1,unit2,unit3, Unit7;
{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute  then
  begin
    MediaPlayer1.Close;
    Label1.Caption :=  OpenDialog1.FileName ;
    MediaPlayer1.FileName := OpenDialog1.FileName;
    MediaPlayer1.Open;
    MediaPlayer1.DisplayRect:=rect(0,0,panel1.Width,panel1.Height) ;
  end;
end;

procedure TForm4.Button2Click(Sender: TObject);
begin
  if Application.MessageBox('确认将该视频文件保存吗？','提示',MB_YESNO) <> 6 then
      exit;
  Form7.edit12.text := OpenDialog1.FileName;
  Form2.Edit3.Text := OpenDialog1.FileName;

end;

procedure TForm4.Button3Click(Sender: TObject);
begin
  MediaPlayer1.Close;
  Form4.Close;
end;

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  MediaPlayer1.Close;
  Form4.Close;
end;



procedure TForm4.FormShow(Sender: TObject);
begin
  try
    MediaPlayer1.DisplayRect:=rect(0,0,panel1.Width,panel1.Height) ;
  except

  end;
end;

end.