📄 main.dfm

📁 自己做的通讯录程序
💻 DFM
📖 第 1 页 / 共 5 页
字号:
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #38582#20070
      Font.Style = []
      ParentFont = False
      TabOrder = 12
      OnClick = btOKClick
    end
    object PostAddress: TEdit
      Left = 72
      Top = 143
      Width = 393
      Height = 24
      BevelInner = bvNone
      BevelKind = bkFlat
      BevelOuter = bvRaised
      BorderStyle = bsNone
      Color = clInfoBk
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -16
      Font.Name = #26999#20307'_GB2312'
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ParentFont = False
      TabOrder = 8
    end
    object Edit15: TEdit
      Left = 8
      Top = 143
      Width = 65
      Height = 24
      TabStop = False
      AutoSelect = False
      BevelInner = bvNone
      BevelKind = bkFlat
      BevelOuter = bvRaised
      BorderStyle = bsNone
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ParentFont = False
      ReadOnly = True
      TabOrder = 31
      Text = ' '#32852#31995#22320#22336
    end
    object Edit12: TEdit
      Left = 8
      Top = 74
      Width = 65
      Height = 24
      TabStop = False
      AutoSelect = False
      BevelInner = bvNone
      BevelKind = bkFlat
      BevelOuter = bvRaised
      BorderStyle = bsNone
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ParentFont = False
      ReadOnly = True
      TabOrder = 24
      Text = ' QQ'#21495
    end
    object qq: TEdit
      Left = 72
      Top = 74
      Width = 249
      Height = 24
      BevelInner = bvNone
      BevelKind = bkFlat
      BevelOuter = bvRaised
      BorderStyle = bsNone
      Color = clInfoBk
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -16
      Font.Name = #26999#20307'_GB2312'
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ParentFont = False
      TabOrder = 5
    end
    object Edit2: TEdit
      Left = 320
      Top = 74
      Width = 41
      Height = 24
      TabStop = False
      AutoSelect = False
      BevelInner = bvNone
      BevelKind = bkFlat
      BevelOuter = bvRaised
      BorderStyle = bsNone
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ParentFont = False
      ReadOnly = True
      TabOrder = 29
      Text = '  '#29983#26085
    end
    object Edit3: TEdit
      Left = 415
      Top = 74
      Width = 25
      Height = 24
      TabStop = False
      AutoSelect = False
      BevelInner = bvNone
      BevelKind = bkFlat
      BevelOuter = bvRaised
      BorderStyle = bsNone
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ParentColor = True
      ParentFont = False
      ReadOnly = True
      TabOrder = 26
      Text = '  '#24180
    end
    object Edit4: TEdit
      Left = 478
      Top = 74
      Width = 25
      Height = 24
      TabStop = False
      AutoSelect = False
      BevelInner = bvNone
      BevelKind = bkFlat
      BevelOuter = bvRaised
      BorderStyle = bsNone
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ParentColor = True
      ParentFont = False
      ReadOnly = True
      TabOrder = 28
      Text = '  '#26376
    end
    object Edit16: TEdit
      Left = 543
      Top = 74
      Width = 26
      Height = 24
      TabStop = False
      AutoSelect = False
      BevelInner = bvNone
      BevelKind = bkFlat
      BevelOuter = bvRaised
      BorderStyle = bsNone
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ParentColor = True
      ParentFont = False
      ReadOnly = True
      TabOrder = 30
      Text = '  '#26085
    end
  end
  object sbCondition: TScrollBox
    Left = 0
    Top = 442
    Width = 943
    Height = 179
    Align = alBottom
    TabOrder = 2
    object Label3: TLabel
      Left = 768
      Top = 88
      Width = 128
      Height = 80
      Caption = #27880#24847#65306#22312#26597#35810#30340#26102#20505#65292#22914#26524#26377#35760#24405#34987#20462#25913#20102#65292#21017#19981#35770#20854#26159#21542#31526#21512#26465#20214#65292#37117#23558#26174#31034#12290
      Color = clInfoBk
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 6316287
      Font.Height = -16
      Font.Name = #26999#20307'_GB2312'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      Transparent = True
      WordWrap = True
    end
    object GroupBox2: TGroupBox
      Left = 32
      Top = 8
      Width = 233
      Height = 161
      Caption = #26174#31034#20869#23481
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      object clbContent: TCheckListBox
        Left = 8
        Top = 16
        Width = 145
        Height = 137
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBtnText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        ItemHeight = 13
        Items.Strings = (
          #30005#35805
          #20998#32452
          #25152#22312#22478#24066
          #21333#20301
          #24615#21035
          'e-mail'
          'QQ'#21495
          #23478#24237#20303#22336
          #32852#31995#22320#22336
          #29983#26085
          #24120#29992#32423#21035
          #22791#27880)
        ParentFont = False
        TabOrder = 0
      end
      object btUpdateList: TBitBtn
        Left = 160
        Top = 120
        Width = 65
        Height = 33
        Cursor = crHandPoint
        BiDiMode = bdLeftToRight
        Caption = #26356#26032#21015#34920
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ModalResult = 6
        ParentBiDiMode = False
        ParentFont = False
        TabOrder = 1
        OnClick = btUpdateListClick
        Margin = 3
        Style = bsNew
      end
    end
    object lbItemWidth: TListBox
      Left = 0
      Top = 24
      Width = 41
      Height = 137
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ItemHeight = 13
      Items.Strings = (
        '300'
        '130'
        '100'
        '200'
        '40'
        '100'
        '80'
        '100'
        '100'
        '100'
        '40'
        '50')
      TabOrder = 0
      Visible = False
    end
    object GroupBox3: TGroupBox
      Left = 272
      Top = 72
      Width = 233
      Height = 97
      Hint = #22312#26174#31034#30340#25968#25454#20013#26174#31034#35813#30005#35805#21495#30721#20154#21592
      Caption = #26597#35810#30005#35805
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      object editQueryTel: TEdit
        Left = 8
        Top = 32
        Width = 217
        Height = 24
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        ParentFont = False
        TabOrder = 0
      end
      object btQueryTel: TButton
        Left = 128
        Top = 66
        Width = 97
        Height = 25
        Caption = #26597#35810
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = btQueryTelClick
      end
    end
    object GroupBox4: TGroupBox
      Left = 272
      Top = 8
      Width = 233
      Height = 57
      Caption = #37325#26032#26816#32034
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      object brReQuery: TButton
        Left = 16
        Top = 18
        Width = 209
        Height = 25
        Caption = #37325#26032#26816#32034#24182#26174#31034#25968#25454
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnClick = brReQueryClick
💿 文件大小 428 K
👤 上传用户 BEIJINGHUANYING
📂 所属分类家庭/个人应用
🏷️ 相关标签

#通讯 #程序
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -