unit1.dfm

一个自动关机的小程序,大家可以看看.还可以

    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object LabNow: TLabel
    Left = 221
    Top = 34
    Width = 63
    Height = 14
    Caption = '12:12:12'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clLime
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Lab_CanShutdown: TLabel
    Left = 136
    Top = 8
    Width = 25
    Height = 12
    Alignment = taCenter
    AutoSize = False
    Caption = '0'
  end
  object GrB1: TFlatGroupBox
    Left = 17
    Top = 58
    Width = 265
    Height = 81
    Transparent = True
    Caption = #36873#25321#20851#26426#26041#24335
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label3: TLabel
      Left = 177
      Top = 53
      Width = 60
      Height = 12
      Caption = #20998#38047#21518#20851#26426
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label4: TLabel
      Left = 149
      Top = 22
      Width = 12
      Height = 12
      Caption = #28857
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label6: TLabel
      Left = 196
      Top = 22
      Width = 42
      Height = 12
      Caption = #20998' '#20851#26426
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Bevel2: TBevel
      Left = 16
      Top = 43
      Width = 233
      Height = 1
      Shape = bsTopLine
    end
    object RB_JS: TFlatRadioButton
      Left = 17
      Top = 51
      Width = 81
      Height = 17
      Transparent = True
      Caption = #35745#26102#20851#26426
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clYellow
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object RB_DS: TFlatRadioButton
      Left = 17
      Top = 20
      Width = 81
      Height = 17
      Transparent = True
      Caption = #23450#26102#20851#26426
      Checked = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clYellow
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      TabStop = True
    end
    object Edt_MM: TMaskEdit
      Left = 114
      Top = 49
      Width = 57
      Height = 20
      Color = clWhite
      EditMask = '!99999;1; '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      MaxLength = 5
      ParentFont = False
      TabOrder = 2
      Text = '     '
    end
    object Edt_H: TMaskEdit
      Left = 115
      Top = 18
      Width = 27
      Height = 20
      Color = clWhite
      EditMask = '!99;1;_'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      MaxLength = 2
      ParentFont = False
      TabOrder = 3
      Text = '  '
    end
    object Edt_M: TMaskEdit
      Left = 162
      Top = 18
      Width = 27
      Height = 20
      Color = clWhite
      EditMask = '!99;1;_'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      MaxLength = 2
      ParentFont = False
      TabOrder = 4
      Text = '  '
    end
  end
  object Btn_ok: TFlatButton
    Left = 120
    Top = 147
    Width = 50
    Height = 21
    TransparentMode = tmNotFocused
    Caption = #30830#23450
    TabOrder = 1
    OnClick = Btn_okClick
  end
  object Btn_cancel: TFlatButton
    Left = 176
    Top = 147
    Width = 50
    Height = 21
    TransparentMode = tmNotFocused
    Caption = #21462#28040
    TabOrder = 2
    OnClick = Btn_cancelClick
  end
  object Btn_exit: TFlatButton
    Left = 232
    Top = 147
    Width = 50
    Height = 21
    TransparentMode = tmNotFocused
    Caption = #20851#38381
    TabOrder = 3
    OnClick = Btn_exitClick
  end
  object CkB_beforshut: TFlatCheckBox
    Left = 18
    Top = 149
    Width = 89
    Height = 17
    Transparent = True
    Caption = #20851#26426#21069#25552#31034
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clYellow
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    TabStop = True
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 60000
    OnTimer = Timer1Timer
    Left = 4
    Top = 84
  end
  object Timer2: TTimer
    OnTimer = Timer2Timer
    Left = 264
    Top = 4
  end
end