main.dfm

利用Windows的 “邮槽” 功能进行局域网内通讯。

object FrmMain: TFrmMain
  Left = 193
  Top = 9
  AutoScroll = False
  Caption = 'MailSlot聊天程序'
  ClientHeight = 477
  ClientWidth = 441
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 441
    Height = 477
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 12
    TabOrder = 0
    object Panel2: TPanel
      Left = 12
      Top = 433
      Width = 417
      Height = 32
      Align = alBottom
      BevelOuter = bvLowered
      TabOrder = 2
      object bbtnSend: TBitBtn
        Left = 76
        Top = 4
        Width = 75
        Height = 25
        Caption = '发送(&S)'
        TabOrder = 0
        OnClick = bbtnSendClick
      end
      object bbtnExit: TBitBtn
        Left = 290
        Top = 4
        Width = 75
        Height = 25
        Caption = '退出(&X)'
        TabOrder = 1
        OnClick = bbtnExitClick
      end
    end
    object pnlChat: TPanel
      Left = 12
      Top = 275
      Width = 417
      Height = 158
      Align = alBottom
      BevelInner = bvRaised
      BevelOuter = bvLowered
      BorderWidth = 2
      TabOrder = 1
      object reText: TRichEdit
        Left = 4
        Top = 39
        Width = 409
        Height = 115
        Align = alClient
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Fixedsys'
        Font.Style = []
        ParentFont = False
        ScrollBars = ssBoth
        TabOrder = 1
        OnKeyDown = reTextKeyDown
      end
      object Panel3: TPanel
        Left = 4
        Top = 4
        Width = 409
        Height = 35
        Align = alTop
        BevelInner = bvLowered
        BevelOuter = bvNone
        TabOrder = 0
        object Label1: TLabel
          Left = 8
          Top = 11
          Width = 36
          Height = 12
          Caption = '接收人'
        end
        object Label2: TLabel
          Left = 164
          Top = 11
          Width = 48
          Height = 12
          Caption = '本人昵称'
        end
        object cbReceiver: TComboBox
          Left = 50
          Top = 7
          Width = 100
          Height = 20
          ItemHeight = 12
          TabOrder = 0
          OnExit = cbReceiverExit
        end
        object edtSender: TEdit
          Left = 221
          Top = 7
          Width = 100
          Height = 20
          TabOrder = 1
        end
        object chkEnter: TCheckBox
          Left = 333
          Top = 9
          Width = 70
          Height = 17
          Caption = '回车发送'
          TabOrder = 2
        end
      end
    end
    object reHistory: TRichEdit
      Left = 12
      Top = 12
      Width = 417
      Height = 263
      TabStop = False
      Align = alClient
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Fixedsys'
      Font.Style = []
      ParentFont = False
      PlainText = True
      ScrollBars = ssBoth
      TabOrder = 0
    end
  end
end