u_videofrm.dfm

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

object VideoFrm: TVideoFrm
  Left = 197
  Top = 119
  BorderStyle = bsNone
  Caption = #20843#20061#19968#21378#35270#39057#31616#20171
  ClientHeight = 522
  ClientWidth = 767
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object pnlDisplay: TPanel
    Left = 0
    Top = 0
    Width = 767
    Height = 522
    Align = alClient
    BevelOuter = bvNone
    BevelWidth = 2
    TabOrder = 0
    object RzPanel1: TRzPanel
      Left = 0
      Top = 0
      Width = 767
      Height = 522
      Align = alClient
      BorderOuter = fsButtonUp
      FlatColor = clActiveCaption
      TabOrder = 0
      object Panel1: TPanel
        Left = 2
        Top = 2
        Width = 763
        Height = 518
        Align = alClient
        BevelOuter = bvNone
        BorderWidth = 2
        TabOrder = 0
        object pnlVideo: TRzPanel
          Left = 2
          Top = 2
          Width = 759
          Height = 514
          Align = alClient
          BorderOuter = fsStatus
          Font.Charset = GB2312_CHARSET
          Font.Color = clGray
          Font.Height = -48
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 1
          object lb1000: TLabel
            Left = 709
            Top = 13
            Width = 36
            Height = 16
            Caption = '1000'
            Font.Charset = GB2312_CHARSET
            Font.Color = clBlue
            Font.Height = -16
            Font.Name = #23435#20307
            Font.Style = [fsBold]
            ParentFont = False
            Transparent = True
          end
          object Label1: TLabel
            Left = 656
            Top = 14
            Width = 53
            Height = 14
            Caption = #20498#35745#26102':'
            Font.Charset = GB2312_CHARSET
            Font.Color = clBlue
            Font.Height = -14
            Font.Name = #23435#20307
            Font.Style = [fsBold]
            ParentFont = False
          end
          object Label2: TLabel
            Left = 657
            Top = 35
            Width = 84
            Height = 14
            Cursor = crHandPoint
            Caption = #30452#25509#36827#20837'>>>'
            Font.Charset = GB2312_CHARSET
            Font.Color = clBlue
            Font.Height = -14
            Font.Name = #23435#20307
            Font.Style = [fsBold, fsUnderline]
            ParentFont = False
            OnClick = Label2Click
          end
        end
        object mpPlayer: TMediaPlayer
          Left = 496
          Top = 488
          Width = 253
          Height = 20
          Display = pnlVideo
          Visible = False
          TabOrder = 0
        end
      end
    end
  end
  object tmTime: TTimer
    Interval = 10
    OnTimer = tmTimeTimer
    Left = 209
    Top = 368
  end
end