receivedunit.dfm

这是一个可以在小局域网内聊天的小工具

object ReceivedMsgForm: TReceivedMsgForm
  Left = 252
  Top = 176
  ActiveControl = SendMsgMemo
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = '消息窗口'
  ClientHeight = 239
  ClientWidth = 399
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object StatusBar: TStatusBar
    Left = 0
    Top = 0
    Width = 399
    Height = 19
    Align = alTop
    Panels = <
      item
        Width = 150
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object Notebook: TNotebook
    Left = 0
    Top = 19
    Width = 399
    Height = 220
    Align = alClient
    PageIndex = 1
    TabOrder = 1
    object TPage
      Left = 0
      Top = 0
      Caption = 'ReceivedMsg'
      object ReceivedMsgMemo: TMemo
        Left = 0
        Top = 0
        Width = 399
        Height = 181
        Align = alTop
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
      object btnAnswer: TButton
        Left = 25
        Top = 188
        Width = 75
        Height = 25
        Caption = '回复'
        Default = True
        TabOrder = 1
        OnClick = btnAnswerClick
      end
      object btnCancel: TButton
        Left = 109
        Top = 188
        Width = 75
        Height = 25
        Cancel = True
        Caption = '取消'
        TabOrder = 2
        OnClick = btnCancelClick
      end
      object btnPre: TButton
        Left = 219
        Top = 188
        Width = 75
        Height = 25
        Caption = '上一条'
        Enabled = False
        TabOrder = 3
        OnClick = btnPreClick
      end
      object btnNext: TButton
        Left = 303
        Top = 188
        Width = 75
        Height = 25
        Caption = '下一条'
        Enabled = False
        TabOrder = 4
        OnClick = btnNextClick
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Answer'
      object SendMsgMemo: TMemo
        Left = 0
        Top = 0
        Width = 399
        Height = 181
        Align = alTop
        ScrollBars = ssVertical
        TabOrder = 0
        OnKeyDown = SendMsgMemoKeyDown
      end
      object btnSend: TButton
        Left = 24
        Top = 188
        Width = 75
        Height = 25
        Caption = '发送'
        Default = True
        TabOrder = 1
        OnClick = btnSendClick
      end
      object btnClose: TButton
        Left = 108
        Top = 188
        Width = 75
        Height = 25
        Cancel = True
        Caption = '取消'
        TabOrder = 2
        OnClick = btnCloseClick
      end
      object btnClear: TButton
        Left = 216
        Top = 188
        Width = 75
        Height = 25
        Caption = '清除'
        TabOrder = 3
        OnClick = btnClearClick
      end
      object btnMsg: TButton
        Left = 300
        Top = 188
        Width = 75
        Height = 25
        Caption = '对话信息'
        TabOrder = 4
        OnClick = btnMsgClick
      end
    end
  end
end