time.dfm

闹钟程序

object frmmain: Tfrmmain
  Left = 288
  Top = 115
  Width = 298
  Height = 184
  BorderIcons = [biSystemMenu]
  Caption = #38393#38047#24212#29992#31243#24207
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -15
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 15
  object Clock_1: TLabel
    Left = 15
    Top = 19
    Width = 68
    Height = 15
    Caption = #36755#20837#26085#26399':'
  end
  object Clock_2: TLabel
    Left = 13
    Top = 60
    Width = 68
    Height = 15
    Caption = #36755#20837#26102#38388':'
  end
  object dtp_Clock_1: TDateTimePicker
    Left = 88
    Top = 10
    Width = 186
    Height = 23
    CalAlignment = dtaLeft
    Date = 38298.8521133218
    Time = 38298.8521133218
    DateFormat = dfShort
    DateMode = dmComboBox
    Kind = dtkDate
    ParseInput = False
    TabOrder = 0
  end
  object dtp_Clock_2: TDateTimePicker
    Left = 88
    Top = 51
    Width = 186
    Height = 23
    CalAlignment = dtaLeft
    Date = 38298.8521883102
    Time = 38298.8521883102
    DateFormat = dfShort
    DateMode = dmComboBox
    Kind = dtkTime
    ParseInput = False
    TabOrder = 1
  end
  object b_Clock_Open: TButton
    Left = 25
    Top = 124
    Width = 75
    Height = 27
    Caption = #25171#24320
    TabOrder = 2
    OnClick = b_Clock_OpenClick
  end
  object b_Clock_Close: TButton
    Left = 185
    Top = 124
    Width = 75
    Height = 27
    Caption = #20851#38381
    TabOrder = 3
    OnClick = b_Clock_CloseClick
  end
  object mp_Clock: TMediaPlayer
    Left = 18
    Top = 88
    Width = 253
    Height = 29
    FileName = 'D:\'#25105#30340#31243#24207#35774#35745'\'#38393#38047#31243#24207'\MCITEST.MID'
    TabOrder = 4
  end
  object t_Clock: TTimer
    Enabled = False
    Interval = 500
    OnTimer = t_ClockTimer
    Left = 128
    Top = 126
  end
end