createfile.~dfm

文件管理系统

object Form3: TForm3
  Left = 442
  Top = 223
  Width = 344
  Height = 283
  Caption = #26032#24314#25991#20214
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 13
  object KB: TLabel
    Left = 264
    Top = 68
    Width = 14
    Height = 13
    Caption = 'KB'
  end
  object CreateBn: TButton
    Left = 72
    Top = 216
    Width = 75
    Height = 25
    Caption = #30830#23450
    TabOrder = 0
    OnClick = CreateBnClick
  end
  object CancelC: TButton
    Left = 192
    Top = 216
    Width = 75
    Height = 25
    Caption = #21462#28040
    TabOrder = 1
    OnClick = CancelCClick
  end
  object StaticText1: TStaticText
    Left = 48
    Top = 32
    Width = 52
    Height = 17
    Caption = #25991#20214#21517#65306
    TabOrder = 2
  end
  object EditName: TEdit
    Left = 136
    Top = 32
    Width = 121
    Height = 21
    MaxLength = 12
    TabOrder = 3
  end
  object Property: TRadioGroup
    Left = 24
    Top = 96
    Width = 137
    Height = 105
    Caption = #25991#20214#23646#24615
    ItemIndex = 1
    Items.Strings = (
      #21482#35835
      #20801#35768#35835#20889)
    TabOrder = 4
  end
  object StaticText2: TStaticText
    Left = 48
    Top = 64
    Width = 64
    Height = 17
    Caption = #25991#20214#22823#23567#65306
    TabOrder = 5
  end
  object EditLength: TEdit
    Left = 136
    Top = 64
    Width = 121
    Height = 21
    MaxLength = 4
    TabOrder = 6
    OnKeyPress = NumOnly
  end
  object CheckSh: TCheckBox
    Left = 200
    Top = 184
    Width = 97
    Height = 17
    Caption = #20801#35768#20849#20139
    Checked = True
    State = cbChecked
    TabOrder = 7
  end
  object TypeBox: TComboBox
    Left = 176
    Top = 120
    Width = 129
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    ItemIndex = 0
    TabOrder = 8
    Text = #25991#26412#25991#20214'txt'
    Items.Strings = (
      #25991#26412#25991#20214'txt'
      #38899#20048#25991#20214'mp3'
      #22810#23186#20307#25991#20214'avi'
      'C++'#25991#20214'cpp'
      #22270#24418#25991#20214'jpg'
      #25968#25454#25991#20214'dat')
  end
  object StaticText3: TStaticText
    Left = 176
    Top = 96
    Width = 64
    Height = 17
    Caption = #25991#20214#31867#22411#65306
    TabOrder = 9
  end
  object StaticText4: TStaticText
    Left = 200
    Top = 160
    Width = 76
    Height = 17
    Caption = #26159#21542#20849#20139#25991#20214
    TabOrder = 10
  end
end