ufrmshutdown.dfm

实现定时关机功能的delphi源码,适合初学者

object FrmShutDown: TFrmShutDown
  Left = 392
  Top = 309
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  BorderWidth = 5
  Caption = #23450#26102#20851#26426#31995#32479
  ClientHeight = 132
  ClientWidth = 261
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 261
    Height = 132
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Color = clSkyBlue
    TabOrder = 0
    object cxGroupBox1: TcxGroupBox
      Left = 13
      Top = 11
      Width = 236
      Height = 73
      Caption = ' '#35774#32622#20851#26426#26102#38388' '
      ParentFont = False
      Style.Font.Charset = GB2312_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -15
      Style.Font.Name = #23435#20307
      Style.Font.Style = []
      TabOrder = 0
      object Label1: TLabel
        Left = 45
        Top = 34
        Width = 51
        Height = 16
        Caption = #26102#38388#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object edtTime: TcxTimeEdit
        Left = 95
        Top = 30
        Width = 92
        Height = 24
        EditValue = 0
        ParentFont = False
        Style.Font.Charset = GB2312_CHARSET
        Style.Font.Color = clWindowText
        Style.Font.Height = -16
        Style.Font.Name = #23435#20307
        Style.Font.Style = []
        TabOrder = 0
      end
    end
    object cxButton1: TcxButton
      Left = 35
      Top = 93
      Width = 88
      Height = 27
      Caption = #30830#23450'(&Y)'
      TabOrder = 1
      OnClick = cxButton1Click
      LookAndFeel.Kind = lfOffice11
      LookAndFeel.NativeStyle = True
    end
    object cxButton2: TcxButton
      Left = 139
      Top = 93
      Width = 88
      Height = 27
      Caption = #21462#28040'(&C)'
      TabOrder = 2
      OnClick = cxButton2Click
      LookAndFeel.Kind = lfOffice11
      LookAndFeel.NativeStyle = True
    end
  end
end