main.dfm

用于局域网的内部通信

object FrmMain: TFrmMain
  Left = 44
  Top = 73
  Width = 544
  Height = 427
  Caption = #21363#26102#28040#24687#24037#20855
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 536
    Height = 73
    Align = alTop
    BevelOuter = bvNone
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 0
    object Panel4: TPanel
      Left = 0
      Top = 0
      Width = 185
      Height = 73
      Align = alLeft
      BevelOuter = bvNone
      TabOrder = 0
      object GroupBox4: TGroupBox
        Left = 0
        Top = 0
        Width = 185
        Height = 73
        Align = alClient
        Caption = #21457#36865#20154
        TabOrder = 0
        object edtSender: TEdit
          Left = 24
          Top = 24
          Width = 145
          Height = 22
          TabOrder = 0
          Text = 'DB'
        end
      end
    end
    object Panel5: TPanel
      Left = 185
      Top = 0
      Width = 351
      Height = 73
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object GroupBox3: TGroupBox
        Left = 0
        Top = 0
        Width = 351
        Height = 73
        Align = alClient
        Caption = #25509#25910#20154
        TabOrder = 0
        DesignSize = (
          351
          73)
        object Label1: TLabel
          Left = 60
          Top = 16
          Width = 36
          Height = 16
          Anchors = [akTop]
          Caption = #24037#20316#32452
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBackground
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label2: TLabel
          Left = 159
          Top = 16
          Width = 36
          Height = 16
          Anchors = [akTop]
          Caption = #26426#22120#21517
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clTeal
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label3: TLabel
          Left = 159
          Top = 40
          Width = 12
          Height = 16
          Anchors = [akTop]
          Caption = 'IP'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clTeal
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object cbReceiver: TComboBox
          Left = 199
          Top = 40
          Width = 145
          Height = 21
          BevelEdges = []
          BevelInner = bvLowered
          Anchors = [akTop]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -7
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ItemHeight = 13
          ParentFont = False
          TabOrder = 0
          OnChange = cbReceiverChange
          OnExit = cbReceiverExit
        end
        object cbWorkgroup: TComboBox
          Left = 9
          Top = 40
          Width = 145
          Height = 21
          Anchors = [akTop]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -7
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ItemHeight = 13
          ParentFont = False
          TabOrder = 1
          OnChange = cbWorkgroupChange
        end
        object cbUsers: TComboBox
          Left = 200
          Top = 13
          Width = 145
          Height = 24
          ItemHeight = 16
          TabOrder = 2
          OnChange = cbUsersChange
        end
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 219
    Width = 536
    Height = 162
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object GroupBox2: TGroupBox
      Left = 0
      Top = 0
      Width = 536
      Height = 162
      Align = alClient
      Caption = #21382#21490#32426#24405
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 0
      object reHistory: TRichEdit
        Left = 1
        Top = 17
        Width = 534
        Height = 144
        Align = alClient
        BevelKind = bkFlat
        BorderStyle = bsNone
        Ctl3D = True
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentCtl3D = False
        ParentFont = False
        ReadOnly = True
        ScrollBars = ssBoth
        TabOrder = 0
      end
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 73
    Width = 536
    Height = 146
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    object GroupBox1: TGroupBox
      Left = 0
      Top = 0
      Width = 536
      Height = 146
      Align = alClient
      Caption = #28040#24687#20869#23481
      Color = clBtnFace
      Ctl3D = False
      ParentColor = False
      ParentCtl3D = False
      TabOrder = 0
      object reText: TRichEdit
        Left = 1
        Top = 17
        Width = 534
        Height = 128
        Align = alClient
        BevelKind = bkFlat
        BorderStyle = bsNone
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ScrollBars = ssBoth
        TabOrder = 0
        OnKeyDown = reHistoryKeyDown
      end
    end
  end
  object MainMenu1: TMainMenu
    Left = 320
    Top = 153
    object F1: TMenuItem
      Caption = #31995#32479'(&S)'
      object Start: TMenuItem
        Caption = #21551#21160'(&S)'
        OnClick = StartClick
      end
      object Stop: TMenuItem
        Caption = #20572#27490'(&O)'
        OnClick = StopClick
      end
      object Exit: TMenuItem
        Caption = #36864#20986'(&X)'
      end
    end
    object M1: TMenuItem
      Caption = 'Windows '#20449#20351'(&M)'
      object StartMessenger: TMenuItem
        Caption = #21551#21160#20449#20351#26381#21153'(&T)'
        OnClick = StartMessengerClick
      end
      object StopMessenger: TMenuItem
        Caption = #20572#27490#20449#20351#26381#21153'(&M)'
        OnClick = StopMessengerClick
      end
    end
    object N1: TMenuItem
      Caption = #21457#36865#28040#24687
      object Enter1: TMenuItem
        AutoCheck = True
        Caption = #25353' Enter '#21457#36865
        RadioItem = True
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object miIP: TMenuItem
        AutoCheck = True
        Caption = #25353' IP'
        GroupIndex = 1
        RadioItem = True
      end
      object miMachine: TMenuItem
        AutoCheck = True
        Caption = #25353#26426#22120#21517
        Checked = True
        GroupIndex = 1
        RadioItem = True
      end
    end
    object H1: TMenuItem
      Caption = #24110#21161'(&H)'
      object A1: TMenuItem
        Caption = #35828#26126'(&I)'
        OnClick = A1Click
      end
    end
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 128
    Top = 112
  end
  object Timer2: TTimer
    Enabled = False
    OnTimer = Timer2Timer
    Left = 192
    Top = 112
  end
end