clocktime.dfm

来自「上传个考勤系统,希望别人也能用.该代码只能算初级的东东,软件代码复用性不高,重复」· DFM 代码 · 共 82 行

object dlgClockTime: TdlgClockTime
  Left = 392
  Top = 183
  ActiveControl = meBegin
  BorderStyle = bsDialog
  Caption = #32771#21220#26102#27573
  ClientHeight = 121
  ClientWidth = 303
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 24
    Top = 24
    Width = 48
    Height = 12
    Caption = #24320#22987#26102#38388
  end
  object Label2: TLabel
    Left = 128
    Top = 24
    Width = 48
    Height = 12
    Caption = #32467#26463#26102#38388
  end
  object Label3: TLabel
    Left = 104
    Top = 40
    Width = 18
    Height = 12
    Caption = '-->'
  end
  object meBegin: TMaskEdit
    Left = 24
    Top = 40
    Width = 73
    Height = 20
    EditMask = '!00:00;0;_'
    MaxLength = 5
    TabOrder = 0
    Text = '0000'
    OnExit = meBeginExit
  end
  object meEnd: TMaskEdit
    Left = 128
    Top = 40
    Width = 73
    Height = 20
    EditMask = '!00:00;0;_'
    MaxLength = 5
    TabOrder = 1
    Text = '2400'
    OnExit = meBeginExit
  end
  object btnOK: TButton
    Left = 135
    Top = 88
    Width = 75
    Height = 25
    Caption = #30830#23450'(&O)'
    ModalResult = 1
    TabOrder = 2
  end
  object btnCancel: TButton
    Left = 219
    Top = 88
    Width = 75
    Height = 25
    Cancel = True
    Caption = #21462#28040'(&C)'
    ModalResult = 2
    TabOrder = 3
  end
end