unit1.dfm

本目录内所有代码仅作指导用户编程之用,用户如果要作为 商业用途,建议使用正版软件进行编译. 开发环境说明： delphi demo : delphi 6.0 vc de

object Form1: TForm1
  Left = 104
  Top = 115
  Width = 591
  Height = 424
  Caption = 'DSC_Delphi_DEMO'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCloseQuery = FormCloseQuery
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 12
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 583
    Height = 40
    Hint = #21551#21160#26381#21153
    ButtonHeight = 38
    ButtonWidth = 39
    Caption = 'ToolBar1'
    EdgeBorders = [ebLeft, ebTop, ebRight]
    Flat = True
    HotImages = ImageList2
    Images = ImageList1
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    object tbStartService: TToolButton
      Left = 0
      Top = 0
      Hint = #21551#21160#26381#21153
      Caption = 'tbStartService'
      ImageIndex = 0
      ParentShowHint = False
      ShowHint = True
      OnClick = tbStartServiceClick
    end
    object tbStopService: TToolButton
      Left = 39
      Top = 0
      Hint = #20572#27490#26381#21153
      Caption = 'tbStopService'
      Enabled = False
      ImageIndex = 1
      ParentShowHint = False
      ShowHint = True
      OnClick = tbStopServiceClick
    end
    object tbOffLine: TToolButton
      Left = 78
      Top = 0
      Caption = #20840#37096#20998#31163'(&A)'
      DropdownMenu = PopupMenu1
      Enabled = False
      ImageIndex = 2
      ParentShowHint = False
      ShowHint = True
      Style = tbsDropDown
      OnClick = tbOffLineClick
    end
    object tbSendData: TToolButton
      Left = 130
      Top = 0
      Hint = #21457#36865#25968#25454
      Caption = 'tbSendData'
      Enabled = False
      ImageIndex = 3
      ParentShowHint = False
      ShowHint = True
      OnClick = tbSendDataClick
    end
    object tbClear: TToolButton
      Left = 169
      Top = 0
      Hint = #28165#31354
      Caption = 'tbClear'
      ImageIndex = 4
      ParentShowHint = False
      ShowHint = True
      OnClick = tbClearClick
    end
    object ToolButton6: TToolButton
      Left = 208
      Top = 0
      Width = 8
      Caption = 'ToolButton6'
      ImageIndex = 5
      Style = tbsSeparator
    end
    object tbQuit: TToolButton
      Left = 216
      Top = 0
      Hint = #36864#20986
      Caption = 'tbQuit'
      ImageIndex = 5
      ParentShowHint = False
      ShowHint = True
      OnClick = tbQuitClick
    end
    object ToolButton8: TToolButton
      Left = 255
      Top = 0
      Width = 8
      Caption = 'ToolButton8'
      ImageIndex = 6
      Style = tbsSeparator
    end
    object Panel3: TPanel
      Left = 263
      Top = 0
      Width = 274
      Height = 38
      BevelOuter = bvNone
      TabOrder = 0
      object ckAnswer: TCheckBox
        Left = 28
        Top = 10
        Width = 53
        Height = 17
        Caption = #24212#31572#65311
        TabOrder = 0
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 40
    Width = 583
    Height = 328
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object Splitter1: TSplitter
      Left = 0
      Top = 145
      Width = 583
      Height = 3
      Cursor = crVSplit
      Align = alTop
    end
    object lvUserTable: TListView
      Left = 0
      Top = 0
      Width = 583
      Height = 145
      Align = alTop
      Color = 15138815
      Columns = <
        item
          Caption = #29992#25143#21495#30721
          Width = 80
        end
        item
          Caption = #30331#24405#26102#38388
          Width = 140
        end
        item
          Caption = #26412#22320'IP'#22320#22336
          Width = 100
        end
        item
          Caption = #26412#22320#31471#21475
          Width = 65
        end
        item
          Caption = #31227#21160#32593#20851'IP'
          Width = 100
        end
        item
          Caption = #31227#21160#32593#20851#31471#21475
          Width = 95
        end>
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      GridLines = True
      HotTrack = True
      ReadOnly = True
      RowSelect = True
      ParentFont = False
      TabOrder = 0
      ViewStyle = vsReport
      OnClick = lvUserTableClick
    end
    object mmDataWnd: TMemo
      Left = 0
      Top = 148
      Width = 583
      Height = 180
      Align = alClient
      Color = clBlack
      Font.Charset = ANSI_CHARSET
      Font.Color = clLime
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      ScrollBars = ssVertical
      TabOrder = 1
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 368
    Width = 583
    Height = 29
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 2