u_form1.dfm

很好地delphi书籍源码

object Form1: TForm1
  Left = 289
  Top = 60
  Width = 395
  Height = 167
  Caption = #23186#20307#25773#25918#26426
  Color = clSkyBlue
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Visible = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 387
    Height = 28
    Bands = <>
    Color = clSkyBlue
    ParentColor = False
    object PlaySB1: TSpeedButton
      Tag = 1
      Left = 0
      Top = 1
      Width = 73
      Height = 22
      AllowAllUp = True
      GroupIndex = 1
      Caption = #25773#25918#35270#39057
      Flat = True
      OnClick = CoolBarButton
    end
    object StopSB1: TSpeedButton
      Tag = 2
      Left = 73
      Top = 1
      Width = 71
      Height = 22
      AllowAllUp = True
      GroupIndex = 1
      Caption = #20572#25918#35270#39057
      Flat = True
      OnClick = CoolBarButton
    end
    object PlaySB2: TSpeedButton
      Tag = 3
      Left = 144
      Top = 1
      Width = 65
      Height = 22
      AllowAllUp = True
      GroupIndex = 1
      Caption = #25773#25918#38899#39057
      Flat = True
      OnClick = CoolBarButton
    end
    object StopSB2: TSpeedButton
      Tag = 4
      Left = 209
      Top = 1
      Width = 70
      Height = 22
      AllowAllUp = True
      GroupIndex = 1
      Caption = #20572#25918#38899#39057
      Flat = True
      OnClick = CoolBarButton
    end
    object KeepPlaySB: TSpeedButton
      Tag = 5
      Left = 279
      Top = 1
      Width = 70
      Height = 22
      AllowAllUp = True
      GroupIndex = 1
      Caption = #25773#25918
      Flat = True
      OnClick = CoolBarButton
    end
  end
  object ListPanel: TPanel
    Left = 0
    Top = 28
    Width = 387
    Height = 61
    Align = alTop
    BevelInner = bvLowered
    ParentColor = True
    TabOrder = 1
    object ListFileLabel: TLabel
      Left = 8
      Top = 8
      Width = 78
      Height = 13
      Caption = #25773#25918#25991#20214#21015#34920
    end
    object ProgressLabel: TLabel
      Left = 8
      Top = 32
      Width = 87
      Height = 13
      Caption = #25773#25918#36827#24230' 00 %'
    end
    object ListCB: TComboBox
      Left = 92
      Top = 4
      Width = 261
      Height = 21
      BevelInner = bvLowered
      BevelKind = bkFlat
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 0
      OnChange = ListCBChange
    end
    object PBar1: TProgressBar
      Left = 2
      Top = 51
      Width = 383
      Height = 8
      Align = alBottom
      Smooth = True
      TabOrder = 1
    end
  end
  object MediaPlayer1: TMediaPlayer
    Left = 113
    Top = 93
    Width = 253
    Height = 24
    Visible = False
    TabOrder = 2
    OnNotify = MediaPlayer1Notify
  end
  object MainMenu1: TMainMenu
    Left = 40
    Top = 92
    object FileMenu: TMenuItem
      Caption = #25991#20214
      object DATMenu: TMenuItem
        Tag = 1
        Caption = 'DAT'#25991#20214'(*.dat)'
        OnClick = ChooiceFile
      end
      object AVIMenu: TMenuItem
        Tag = 2
        Caption = 'AVI'#25991#20214'(*.avi)'
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object WAVMenu: TMenuItem
        Tag = 3
        Caption = 'WAV'#25991#20214'(*.wav)'
        OnClick = ChooiceFile
      end
      object MP3Menu: TMenuItem
        Tag = 4
        Caption = 'MP3'#25991#20214'(*.mp3)'
        OnClick = ChooiceFile
      end
      object AllMenu: TMenuItem
        Tag = 5
        Caption = #36830#32493#25773#25918
        OnClick = AllMenuClick
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object ExitMenu: TMenuItem
        Caption = #36864#20986
        OnClick = ExitMenuClick
      end
    end
  end
  object OpenDialog1: TOpenDialog
    Left = 8
    Top = 92
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 72
    Top = 92
  end
end