main.dfm

使用Net Send群发消息的程序

object FrmMain: TFrmMain
  Left = 254
  Top = 100
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #36865#30701#28040#24687
  ClientHeight = 359
  ClientWidth = 246
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Memo1: TMemo
    Left = 8
    Top = 8
    Width = 231
    Height = 121
    TabOrder = 0
  end
  object BtnSend: TButton
    Left = 151
    Top = 136
    Width = 66
    Height = 25
    Caption = #21457#36865'(&S)'
    TabOrder = 3
    OnClick = BtnSendClick
  end
  object CbxMach: TComboBox
    Left = 8
    Top = 136
    Width = 105
    Height = 20
    Hint = #36755#20837#23545#26041#26426#22120#21517#25110'IP'
    ItemHeight = 12
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    OnDblClick = CbxMachDblClick
    OnKeyDown = CbxMachKeyDown
  end
  object ChkBoxAll: TCheckBox
    Left = 123
    Top = 138
    Width = 16
    Height = 17
    Hint = #25353#32452#21457#36865
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
  end
  object GroupBox1: TGroupBox
    Left = 3
    Top = 168
    Width = 235
    Height = 121
    Caption = #29992#25143#32452' ----------'#32452#25104#21592'-------------'
    TabOrder = 5
    object Label3: TLabel
      Left = 107
      Top = 96
      Width = 23
      Height = 16
      Hint = #28857#20987#36825#37324#30475#36825#37324
      Alignment = taCenter
      Caption = 'help'
      Color = clTeal
      Font.Charset = ANSI_CHARSET
      Font.Color = clYellow
      Font.Height = -12
      Font.Name = 'Comic Sans MS'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnDblClick = Label3DblClick
    end
    object LBGrp: TListBox
      Left = 8
      Top = 16
      Width = 89
      Height = 65
      ItemHeight = 12
      TabOrder = 0
      OnClick = LBGrpClick
      OnEnter = LBGrpEnter
    end
    object LBMmb: TListBox
      Left = 104
      Top = 16
      Width = 121
      Height = 65
      ItemHeight = 12
      TabOrder = 1
      OnClick = LBMmbClick
      OnEnter = LBMmbEnter
    end
    object BtnAdd: TButton
      Left = 16
      Top = 88
      Width = 75
      Height = 25
      Caption = #22686#21152#32452'(&A)'
      TabOrder = 2
      OnClick = BtnAddClick
    end
    object BtnDel: TButton
      Left = 144
      Top = 88
      Width = 75
      Height = 25
      Caption = #21024#38500#32452'(&D)'
      TabOrder = 3
      OnClick = BtnDelClick
    end
  end
  object SBtnMin: TBitBtn
    Left = 220
    Top = 147
    Width = 21
    Height = 15
    Hint = #26597#30475#32452
    TabOrder = 4
    OnClick = SBtnMinClick
    Glyph.Data = {
      46020000424D46020000000000003600000028000000100000000B0000000100
      18000000000010020000C40E0000C40E00000000000000000000C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C000000000
      00FF000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C00000000000FF0000FF0000FF000000C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000000000FF0000FF00
      00FF0000FF0000FF000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C00000000000FF0000FF0000FF0000FF0000FF0000FF0000FF000000C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C000000000000000000000000000000000
      0000000000000000000000000000000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
      C0C0C0C0C0C0C0C0C0C0}
    Style = bsNew
  end
  object GroupBox2: TGroupBox
    Left = 3
    Top = 292
    Width = 235
    Height = 62
    Caption = #31614#21517
    TabOrder = 6
    object Label1: TLabel
      Left = 8
      Top = 16
      Width = 24
      Height = 12
      Caption = #24320#22987
    end
    object Label2: TLabel
      Left = 8
      Top = 37
      Width = 24
      Height = 12
      Caption = #32467#26463
    end
    object MemHead: TMemo
      Left = 40
      Top = 11
      Width = 185
      Height = 21
      ScrollBars = ssVertical
      TabOrder = 0
      WordWrap = False
      OnExit = MemHeadExit
    end
    object MemEnd: TMemo
      Left = 40
      Top = 35
      Width = 185
      Height = 21
      ScrollBars = ssVertical
      TabOrder = 1
      WordWrap = False
      OnExit = MemEndExit
    end
  end
end