createpas.dfm

来自「DELPHI 编写个人工作计划事务管理软件」· DFM 代码 · 共 153 行

object CreatForm: TCreatForm
  Left = 224
  Top = 170
  BorderStyle = bsDialog
  Caption = #21019#24314#26032#29992#25143
  ClientHeight = 359
  ClientWidth = 387
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Use_Name_Label: TLabel
    Left = 12
    Top = 18
    Width = 60
    Height = 12
    AutoSize = False
    Caption = #29992#25143#22995#21517#65306
  end
  object Name_Desc_Label: TLabel
    Left = 12
    Top = 42
    Width = 60
    Height = 12
    AutoSize = False
    Caption = #29992#25143#20840#21517#65306
  end
  object Level_Desc_Label: TLabel
    Left = 12
    Top = 66
    Width = 60
    Height = 12
    AutoSize = False
    Caption = #26435#38480#25551#36848#65306
  end
  object Bevel_Break_1: TBevel
    Left = 12
    Top = 102
    Width = 365
    Height = 2
    Shape = bsTopLine
  end
  object Bevel_Break_2: TBevel
    Left = 12
    Top = 314
    Width = 365
    Height = 6
    Shape = bsBottomLine
  end
  object UsePassLabel: TLabel
    Left = 12
    Top = 124
    Width = 60
    Height = 12
    AutoSize = False
    Caption = #29992#25143#23494#30721#65306
  end
  object ComfirmPassLabel: TLabel
    Left = 12
    Top = 148
    Width = 60
    Height = 12
    AutoSize = False
    Caption = #30830#35748#23494#30721#65306
  end
  object ED_UseName: TEdit
    Left = 74
    Top = 14
    Width = 302
    Height = 20
    TabOrder = 0
    Text = 'ED_UseName'
    OnChange = ED_UseNameChange
  end
  object ED_NameDesc: TEdit
    Left = 74
    Top = 38
    Width = 302
    Height = 20
    TabOrder = 1
    Text = 'ED_NameDesc'
  end
  object ED_Level: TEdit
    Left = 74
    Top = 62
    Width = 302
    Height = 20
    TabOrder = 2
    Text = 'ED_Level'
  end
  object CreateBut: TBitBtn
    Left = 216
    Top = 328
    Width = 75
    Height = 22
    Caption = #21019#24314'(&C)'
    Enabled = False
    ModalResult = 1
    TabOrder = 6
    OnClick = CreateButClick
  end
  object ED_PassWord: TEdit
    Left = 74
    Top = 120
    Width = 295
    Height = 20
    PasswordChar = '*'
    TabOrder = 3
    Text = 'ED_PassWord'
  end
  object ED_ComfirmPass: TEdit
    Left = 74
    Top = 144
    Width = 295
    Height = 20
    PasswordChar = '*'
    TabOrder = 4
    Text = 'ED_ComfirmPass'
  end
  object RG_UseLevel: TRadioGroup
    Left = 14
    Top = 184
    Width = 361
    Height = 87
    Caption = #29992#25143#26435#38480#35774#32622
    ItemIndex = 1
    Items.Strings = (
      #36229#32423#29992#25143'              #'#21487#28155#21152#21024#38500#29992#25143#12290#26435#38480#26159#26368#39640#32423
      #26631#20934#29992#25143'              #'#26222#33021#32423#30340#29992#25143#65292#21487#26597#30475#24403#21069#29992#25143
      #19968#33324#29992#25143'              #'#26368#26222#36890#32423#30340#29992#25143#65292#21482#33021#25805#20316#20027#31243#24335)
    TabOrder = 5
  end
  object Exit_But: TBitBtn
    Left = 304
    Top = 328
    Width = 75
    Height = 22
    Caption = #20851#38381'(&X)'
    ModalResult = 2
    TabOrder = 7
    OnClick = Exit_ButClick
  end
end