unit1.dfm

CS型聊天室3.0版.rar

object Form1: TForm1
  Left = 192
  Top = 119
  Width = 521
  Height = 331
  Caption = #32842#22825#23460#26381#21153#22120'3.0'#29256
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object RichEdit1: TRichEdit
    Left = 32
    Top = 24
    Width = 329
    Height = 177
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Lines.Strings = (
      #32842#22825#20869#23481)
    ParentFont = False
    TabOrder = 0
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 272
    Width = 513
    Height = 29
    Panels = <>
    SimplePanel = False
  end
  object GroupBox1: TGroupBox
    Left = 24
    Top = 216
    Width = 337
    Height = 49
    Caption = #24191#25773#20449#24687
    TabOrder = 2
    object Edit1: TEdit
      Left = 8
      Top = 16
      Width = 321
      Height = 21
      TabOrder = 0
      OnKeyDown = Edit1KeyDown
    end
  end
  object GroupBox2: TGroupBox
    Left = 368
    Top = 24
    Width = 129
    Height = 241
    Caption = #22312#32447#21517#21333
    TabOrder = 3
    object ListView1: TListView
      Left = 8
      Top = 24
      Width = 113
      Height = 209
      Columns = <
        item
          Caption = #26165#31216
        end
        item
          Caption = 'IP'#22320#22336
        end
        item
          Caption = #20027#26426#21517
        end>
      TabOrder = 0
      ViewStyle = vsReport
    end
  end
  object ServerSocket1: TServerSocket
    Active = True
    Port = 5555
    ServerType = stNonBlocking
    OnClientDisconnect = ServerSocket1ClientDisconnect
    OnClientRead = ServerSocket1ClientRead
    Left = 408
    Top = 256
  end
end