main.dfm

是一个手机功能的模拟程序

            end>
          GridLines = True
          MultiSelect = True
          ReadOnly = True
          RowSelect = True
          TabOrder = 0
          ViewStyle = vsReport
          OnColumnClick = ListView_phonebook_mainColumnClick
          OnDblClick = ListView_phonebook_mainDblClick
        end
        object Panel_phb: TPanel
          Left = 0
          Top = 0
          Width = 634
          Height = 30
          Align = alTop
          Alignment = taLeftJustify
          BevelOuter = bvNone
          BorderWidth = 2
          BorderStyle = bsSingle
          Caption = #30005#35805#31807#65306
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 1
        end
      end
      object TPage
        Left = 0
        Top = 0
        Caption = 'shortmessage'
        object ListView_shortmessage_main: TListView
          Left = 0
          Top = 30
          Width = 634
          Height = 375
          Align = alClient
          Color = clInfoBk
          Columns = <
            item
              Caption = #23384#25918#20301#32622
              Width = 60
            end
            item
              Caption = #24207#21495
              Width = 40
            end
            item
              Caption = #31867#21035
              Width = 85
            end
            item
              Caption = #21495#30721
              Width = 108
            end
            item
              Caption = #22995#21517
              Width = 80
            end
            item
              Caption = #26085#26399
              Width = 125
            end
            item
              AutoSize = True
              Caption = #20449#24687
            end
            item
              Caption = 'id'
              Width = 0
            end>
          GridLines = True
          MultiSelect = True
          ReadOnly = True
          RowSelect = True
          TabOrder = 0
          ViewStyle = vsReport
          OnColumnClick = ListView_shortmessage_mainColumnClick
          OnDblClick = ListView_shortmessage_mainDblClick
        end
        object Panel_sms: TPanel
          Left = 0
          Top = 0
          Width = 634
          Height = 30
          Align = alTop
          Alignment = taLeftJustify
          BevelOuter = bvNone
          BorderWidth = 2
          BorderStyle = bsSingle
          Caption = #30701#28040#24687#65306
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 1
        end
      end
      object TPage
        Left = 0
        Top = 0
        Caption = 'callrecord'
        object ListView_callrecord_main: TListView
          Left = 0
          Top = 30
          Width = 634
          Height = 375
          Align = alClient
          Color = clInfoBk
          Columns = <
            item
              Caption = #23384#25918#20301#32622
              Width = 70
            end
            item
              Alignment = taCenter
              Caption = #32534#21495
            end
            item
              Caption = #21628#21483#31867#22411
              Width = 100
            end
            item
              AutoSize = True
              Caption = #26085#26399
            end
            item
              Alignment = taRightJustify
              AutoSize = True
              Caption = #30005#35805#21495#30721
            end
            item
              Caption = #22995#21517
              Width = 80
            end
            item
              Caption = 'id'
              Width = 0
            end>
          FullDrag = True
          GridLines = True
          MultiSelect = True
          ReadOnly = True
          RowSelect = True
          TabOrder = 0
          ViewStyle = vsReport
          OnColumnClick = ListView_callrecord_mainColumnClick
          OnDblClick = ListView_callrecord_mainDblClick
        end
        object Panel_cr: TPanel
          Left = 0
          Top = 0
          Width = 634
          Height = 30
          Align = alTop
          Alignment = taLeftJustify
          BevelOuter = bvNone
          BorderWidth = 2
          BorderStyle = bsSingle
          Caption = #36890#35805#35760#24405#65306
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 1
        end
      end
    end
  end
  object MainMenu1: TMainMenu
    Images = ImageList_menu
    Left = 504
    object N1: TMenuItem
      Caption = #25991#20214'[&F]'
      SubMenuImages = ImageList_menu
      ImageIndex = 0
      object N8: TMenuItem
        Caption = #36733#20837#25968#25454'[&R]'
        SubMenuImages = ImageList_menu
        ImageIndex = 0
        object N15: TMenuItem
          Caption = #20840#37096
          OnClick = N_reloadAllClick
        end
        object N18: TMenuItem
          Caption = '-'
        end
        object N19: TMenuItem
          Caption = #30005#35805#31807
          OnClick = N_reloadPHBClick
        end
        object N20: TMenuItem
          Caption = #30701#28040#24687
          OnClick = N_reloadSMSClick
        end
        object N23: TMenuItem
          Caption = #36890#35805#35760#24405
          OnClick = N_reloadCRClick
        end
      end
      object N9: TMenuItem
        Caption = '-'
      end
      object N10: TMenuItem
        Caption = #35774#32622'[&S]'
        SubMenuImages = ImageList_menu
        ImageIndex = 1
        OnClick = N10Click
      end
      object N11: TMenuItem
        Caption = '-'
      end
      object N12: TMenuItem
        Caption = #25171#21360'[&P]'
        SubMenuImages = ImageList_menu
        Enabled = False
        ImageIndex = 2
        Visible = False
      end
      object N13: TMenuItem
        Caption = '-'
      end
      object N14: TMenuItem
        Caption = #36864#20986'[&X]'
        ImageIndex = 3
        OnClick = N14Click
      end
    end
    object N2: TMenuItem
      AutoHotkeys = maAutomatic
      Caption = #32534#36753'[&E]'
      object N25: TMenuItem
        Caption = #26032#24314'[&N]'
        object N26: TMenuItem
          Caption = #30005#35805#31807'[&P]'
          OnClick = N26Click
        end
        object N27: TMenuItem
          Caption = #30701#28040#24687'[&S]'
          OnClick = N27Click
        end
      end
      object N28: TMenuItem
        Caption = #26597#30475'[&E]'
        OnClick = N28Click
      end
      object N29: TMenuItem
        Caption = '-'
      end
      object N30: TMenuItem
        Caption = #21024#38500'[&D]'
        OnClick = N30Click
      end
      object N32: TMenuItem
        Caption = '-'
      end
      object N33: TMenuItem
        Caption = #20840#36873'[&A]'
        OnClick = N33Click
      end
    end
    object N3: TMenuItem
      Caption = #35270#22270'[&V]'
      object N31: TMenuItem
        AutoCheck = True
        Caption = #30005#35805#31807'[&P]'
        GroupIndex = 1
        RadioItem = True
        OnClick = N31Click
      end
      object N34: TMenuItem
        AutoCheck = True
        Caption = #30701#28040#24687'[&S]'
        GroupIndex = 1
        RadioItem = True
        OnClick = N34Click
      end
      object N35: TMenuItem
        AutoCheck = True
        Caption = #36890#35805#35760#24405'[&C]'
        GroupIndex = 1
        RadioItem = True
        OnClick = N35Click
      end
    end
    object N4: TMenuItem
      Caption = #30005#35805#31807'[&P]'
      object N36: TMenuItem
        Caption = #26032#24314'[&N]'
        OnClick = N26Click
      end