chatroomunit.dfm

用delphi编写的一个网络聊天系统。利用它可以实现网络聊天

object ChatRoomForm: TChatRoomForm
  Left = 11
  Top = 47
  Width = 743
  Height = 531
  ActiveControl = ChatEdit
  Caption = '聊天室'
  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
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter
    Left = 125
    Top = 0
    Width = 3
    Height = 485
    Cursor = crHSplit
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 485
    Width = 735
    Height = 19
    Panels = <
      item
        Width = 200
      end
      item
        Width = 200
      end>
    SimplePanel = False
  end
  object Panel1: TPanel
    Left = 128
    Top = 0
    Width = 607
    Height = 485
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object Panel2: TPanel
      Left = 0
      Top = 459
      Width = 607
      Height = 26
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 0
      object ChatEdit: TEdit
        Left = 0
        Top = 4
        Width = 269
        Height = 20
        Hint = '您要说的话'
        Anchors = [akLeft, akRight, akBottom]
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnKeyPress = ChatEditKeyPress
      end
      object cbUserList: TComboBox
        Left = 452
        Top = 4
        Width = 101
        Height = 20
        Hint = '说话对象'
        Anchors = [akRight, akBottom]
        ItemHeight = 12
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
      end
      object cbStyle: TComboBox
        Left = 364
        Top = 4
        Width = 85
        Height = 20
        Hint = '表情'
        Anchors = [akRight, akBottom]
        ItemHeight = 12
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        Text = '微笑着'
        Items.Strings = (
          '微笑着'
          '哈哈大笑的'
          '痛苦地'
          '忧郁地'
          '友好的'
          '大叫着'
          '愤怒地'
          '眨了眨眼'
          '傻笑着'
          '抽泣着'
          '生气地'
          '恋恋不舍的'
          '深情地'
          '迷惑地'
          '惊讶地'
          '瞪大了眼睛'
          '打着哈欠'
          '娇滴滴的'
          '妩媚的'
          '抛了个媚眼'
          '耸了耸肩'
          '摇了摇头'
          '无奈地'
          '挥了挥手'
          '悄悄地'
          '亲了一个')
      end
      object cbColor: TColorComboBox
        Left = 556
        Top = 4
        Width = 49
        Height = 19
        Hint = '字体颜色'
        DisplayNames = False
        Anchors = [akRight, akBottom]
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
      end
      object btnSend: TButton
        Left = 273
        Top = 4
        Width = 34
        Height = 20
        Anchors = [akRight, akBottom]
        Caption = '发送'
        TabOrder = 4
        OnClick = btnSendClick
      end
      object PrivateChatCheckBox: TCheckBox
        Left = 312
        Top = 6
        Width = 49
        Height = 17
        Anchors = [akRight, akBottom]
        Caption = '私聊'
        TabOrder = 5
      end
    end
    object ChatMsgRichEdit: TRichEdit
      Left = 0
      Top = 0
      Width = 607
      Height = 459
      TabStop = False
      Align = alClient
      HideSelection = False
      PopupMenu = PopupMenu1
      ReadOnly = True
      ScrollBars = ssVertical
      TabOrder = 1
    end
  end
  object UserListBox: TListBox
    Left = 0
    Top = 0
    Width = 125
    Height = 485
    Hint = '聊天室用户'
    Align = alLeft
    ItemHeight = 12
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnDblClick = UserListBoxDblClick
    OnMouseMove = UserListBoxMouseMove
  end
  object PopupMenu1: TPopupMenu
    AutoHotkeys = maManual
    Left = 364
    Top = 40
    object N1: TMenuItem
      Caption = '清除内容'
      OnClick = N1Click
    end
  end
end