unit1.dfm

时钟程序 这是书本上的相关内容

object Form1: TForm1
  Left = 192
  Top = 114
  Width = 696
  Height = 480
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object l_Clock_1: TLabel
    Left = 40
    Top = 48
    Width = 56
    Height = 13
    Caption = #36755#20837#26085#26399
  end
  object l_Clock_2: TLabel
    Left = 40
    Top = 96
    Width = 56
    Height = 13
    Caption = #36755#20837#26102#38388
  end
  object dtp_Clock_1: TDateTimePicker
    Left = 144
    Top = 48
    Width = 105
    Height = 25
    CalAlignment = dtaLeft
    Date = 38438.4059544329
    Time = 38438.4059544329
    DateFormat = dfShort
    DateMode = dmComboBox
    Kind = dtkDate
    ParseInput = False
    TabOrder = 0
  end
  object dtp_Clock_2: TDateTimePicker
    Left = 144
    Top = 96
    Width = 105
    Height = 25
    CalAlignment = dtaLeft
    Date = 38438.3792013889
    Time = 38438.3792013889
    DateFormat = dfShort
    DateMode = dmComboBox
    Kind = dtkTime
    ParseInput = False
    TabOrder = 1
  end
  object mp_Clock: TMediaPlayer
    Left = 32
    Top = 136
    Width = 253
    Height = 33
    FileName = 'D:\Music\'#25235#20982#25163'.mp3'
    TabOrder = 2
  end
  object b_Clock_Open: TButton
    Left = 40
    Top = 200
    Width = 73
    Height = 41
    Caption = #37325#26032#25171#24320
    TabOrder = 3
    OnClick = b_Clock_OpenClick
  end
  object b_Clock_Close: TButton
    Left = 40
    Top = 256
    Width = 113
    Height = 33
    Caption = #20851#38381#31243#24207
    TabOrder = 4
    OnClick = b_Clock_CloseClick
  end
  object t_Clock: TTimer
    Interval = 10
    OnTimer = t_ClockTimer
    Left = 144
    Top = 200
  end
end