undate.dfm

来自「一个电力的巡检项目,用到三个控件,可自己去下载,」· DFM 代码 · 共 80 行

object date_frm: Tdate_frm
  Left = 479
  Top = 297
  BorderIcons = [biSystemMenu]
  BorderStyle = bsNone
  ClientHeight = 211
  ClientWidth = 313
  Color = 16776176
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnDeactivate = FormDeactivate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Pan_d: TPanel
    Left = 0
    Top = 0
    Width = 272
    Height = 211
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object YMD: TMonthCalendar
      Left = 2
      Top = 2
      Width = 268
      Height = 153
      Align = alTop
      Date = 38362.852983576390000000
      TabOrder = 0
    end
    object HMS: TDateTimePicker
      Tag = 99
      Left = 10
      Top = 163
      Width = 113
      Height = 28
      Date = 38362.604424363420000000
      Time = 38362.604424363420000000
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      Kind = dtkTime
      ParentFont = False
      TabOrder = 1
    end
    object btn_qd: TButton
      Left = 137
      Top = 168
      Width = 57
      Height = 25
      Caption = #30830#23450
      TabOrder = 2
      OnClick = btn_qdClick
    end
    object btn_cel: TButton
      Left = 201
      Top = 168
      Width = 57
      Height = 25
      Cancel = True
      Caption = #21462#28040
      TabOrder = 3
      OnClick = btn_celClick
    end
  end
end