netmonitorform.dfm

自已写的IP扫描工具

                Height = 19
                Color = clYellow
                TabOrder = 1
                Text = 'edtUserName'
              end
              object edtUserID: TEdit
                Left = 62
                Top = 85
                Width = 163
                Height = 19
                Color = clYellow
                TabOrder = 2
                Text = 'edtUserID'
              end
              object cboMailType: TComboBox
                Left = 79
                Top = 116
                Width = 147
                Height = 21
                Color = clYellow
                ItemHeight = 13
                TabOrder = 3
                Text = 'mail.gbmgroup.com.cn'
                Items.Strings = (
                  'mail.gbmgroup.com.cn'
                  'gbmgroup.com.cn')
              end
              object rdogSureSendMail: TRadioGroup
                Left = 15
                Top = 146
                Width = 118
                Height = 48
                Caption = #26159#21542#30332#36865#22577#35686#20449#24687
                TabOrder = 4
              end
              object rdoSendMailYes: TRadioButton
                Left = 38
                Top = 166
                Width = 35
                Height = 17
                Caption = #26159
                Checked = True
                Font.Charset = ANSI_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = #26032#32048#26126#39636
                Font.Style = []
                ParentFont = False
                TabOrder = 5
                TabStop = True
              end
              object rdoSendMailNo: TRadioButton
                Left = 81
                Top = 166
                Width = 32
                Height = 17
                Caption = #21542
                Font.Charset = ANSI_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = #26032#32048#26126#39636
                Font.Style = []
                ParentFont = False
                TabOrder = 6
              end
              object btnMailAdd: TButton
                Left = 152
                Top = 146
                Width = 75
                Height = 25
                Caption = #28155#21152#29992#25142
                TabOrder = 7
                OnClick = btnMailAddClick
              end
              object btnMailDelete: TButton
                Left = 152
                Top = 172
                Width = 75
                Height = 25
                Caption = #21034#38500#29992#25142
                TabOrder = 8
                OnClick = btnMailDeleteClick
              end
              object GroupBox3: TGroupBox
                Left = 1
                Top = 210
                Width = 250
                Height = 188
                Align = alBottom
                Caption = 'Mail'#20839#23481
                TabOrder = 9
                object mmoMailBody: TMemo
                  Left = 1
                  Top = 14
                  Width = 248
                  Height = 173
                  Align = alClient
                  Lines.Strings = (
                    'mmoMailBody')
                  TabOrder = 0
                end
              end
            end
            object GroupBox2: TGroupBox
              Left = 1
              Top = 1
              Width = 252
              Height = 99
              Align = alTop
              TabOrder = 1
              object labHostMail: TLabel
                Left = 15
                Top = 17
                Width = 103
                Height = 13
                AutoSize = False
                Caption = #30332#36865'Mail'#37109#31665#22320#22336':'
              end
              object Label5: TLabel
                Left = 63
                Top = 68
                Width = 11
                Height = 13
                Caption = '@'
              end
              object edtHostMail: TEdit
                Left = 61
                Top = 33
                Width = 167
                Height = 19
                Color = clYellow
                TabOrder = 0
                Text = 'edtHostMail'
              end
              object cboHostMailType: TComboBox
                Left = 80
                Top = 64
                Width = 149
                Height = 21
                Color = clYellow
                ItemHeight = 13
                TabOrder = 1
                Text = 'mai.gbmgroup.com.cn'
                Items.Strings = (
                  'mail.gbmgroup.com.cn'
                  'gbmgroup.com.cn')
              end
            end
          end
        end
        object Panel11: TPanel
          Left = 257
          Top = 1
          Width = 495
          Height = 502
          Align = alClient
          TabOrder = 1
          object GboxMailList: TGroupBox
            Left = 1
            Top = 1
            Width = 493
            Height = 500
            Align = alClient
            Caption = 'Mail'#22320#22336#21015#34920
            Ctl3D = False
            ParentCtl3D = False
            TabOrder = 0
            object chklstMail: TCheckListBox
              Left = 1
              Top = 14
              Width = 491
              Height = 439
              Align = alClient
              ItemHeight = 13
              TabOrder = 0
            end
            object Panel15: TPanel
              Left = 1
              Top = 453
              Width = 491
              Height = 46
              Align = alBottom
              TabOrder = 1
              object btnMailChooseAll: TButton
                Left = 212
                Top = 11
                Width = 75
                Height = 25
                Caption = #20840#36984
                TabOrder = 0
                OnClick = btnMailChooseAllClick
              end
              object btnMailChooseCancel: TButton
                Left = 304
                Top = 11
                Width = 75
                Height = 25
                Caption = #21462#28040
                TabOrder = 1
                OnClick = btnMailChooseCancelClick
              end
              object btnMailSaveState: TButton
                Left = 396
                Top = 11
                Width = 75
                Height = 25
                Caption = #20445#23384
                TabOrder = 2
                OnClick = btnMailSaveStateClick
              end
            end
          end
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = #20449#24687#26597#35426
      ImageIndex = 2
      object Panel12: TPanel
        Left = 0
        Top = 0
        Width = 753
        Height = 504
        Align = alClient
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 0
        object Panel13: TPanel
          Left = 1
          Top = 1
          Width = 751
          Height = 88
          Align = alTop
          TabOrder = 0
          object Label1: TLabel
            Left = 39
            Top = 18
            Width = 51
            Height = 14
            AutoSize = False
            Caption = #26085#26399':   '#24478
          end
          object Label2: TLabel
            Left = 269
            Top = 17
            Width = 13
            Height = 14
            AutoSize = False
            Caption = #21040
          end
          object Label3: TLabel
            Left = 247
            Top = 57
            Width = 74
            Height = 13
            Caption = 'ping'#20837'IP'#22320#22336':'
          end
          object Label4: TLabel
            Left = 15
            Top = 57
            Width = 113
            Height = 14
            AutoSize = False
            Caption = #22519#34892'ping'#21629#20196'IP'#22320#22336':'
          end
          object btnQuery: TButton
            Left = 480
            Top = 15
            Width = 73
            Height = 26
            Caption = #26597#35426
            TabOrder = 0
            OnClick = btnQueryClick
          end
          object btnQueryCancel: TButton
            Left = 576
            Top = 15
            Width = 68
            Height = 26
            Caption = #21462#28040
            TabOrder = 1
            OnClick = btnQueryCancelClick
          end
          object BeginDateTime: TDateTimePicker
            Left = 99
            Top = 13
            Width = 86
            Height = 22
            CalAlignment = dtaLeft
            Date = 39428.6299171644
            Time = 39428.6299171644
            DateFormat = dfShort
            DateMode = dmComboBox
            Kind = dtkDate
            ParseInput = False
            TabOrder = 2
          end
          object EndDateTime: TDateTimePicker
            Left = 290
            Top = 13
            Width = 87
            Height = 22
            CalAlignment = dtaLeft
            Date = 39428.6299589468
            Time = 39428.6299589468
            DateFormat = dfShort
            DateMode = dmComboBox
            Kind = dtkDate
            ParseInput = False
            TabOrder = 3
          end
          object cboIPLocalLst: TComboBox
            Left = 327
            Top = 53