u_videofrm.~pas

给一个企业做的产品展示系统,很好的展示了产品的各种功能

unit U_VideoFrm;

interface

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

type
  TVideoFrm = class(TForm)
    pnlDisplay: TPanel;
    RzPanel1: TRzPanel;
    Panel1: TPanel;
    tmTime: TTimer;
    mpPlayer: TMediaPlayer;
    pnlVideo: TRzPanel;
    lb1000: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    procedure tmTimeTimer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Label2Click(Sender: TObject);
  private
    N: Integer;
  public

  end;

var
  VideoFrm: TVideoFrm;

implementation

{$R *.dfm}

procedure TVideoFrm.tmTimeTimer(Sender: TObject);
begin
 application.ProcessMessages;
 N := N + 1;
 lb1000.Caption := IntToStr(1000 - n);
 if N = 1000 then
 begin
   (Sender as TTimer).Enabled := False;
   Close;
 end;
end;

procedure TVideoFrm.FormCreate(Sender: TObject);
var
  VideoPath: String;
begin
  N := 0;
  mpPlayer.FileName := ExtractFilePath(application.ExeName) + 'Video\891.avi';
  mpPlayer.Open;
  mpPlayer.Play;
  mpPlayer.DisplayRect := pnlVideo.ClientRect;
end;

procedure TVideoFrm.Label2Click(Sender: TObject);
begin
  Self.Close;
end;

end.