unit1.dfm

一个简单的局域网聊天程序

object Form1: TForm1
  Left = 718
  Top = 0
  BorderStyle = bsSingle
  Caption = #31616#26131#32842#22825#24037#20855
  ClientHeight = 434
  ClientWidth = 296
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object Memo2: TMemo
    Left = 0
    Top = 0
    Width = 296
    Height = 385
    Align = alTop
    Color = clBtnFace
    Lines.Strings = (
      #32842#22825#35760#24405#65306)
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 0
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 415
    Width = 296
    Height = 19
    Panels = <
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object Memo1: TMemo
    Left = 0
    Top = 385
    Width = 296
    Height = 30
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Lines.Strings = (
      #36755#20837#24744#30340#35805#65292#22238#36710#21457#36865)
    ParentFont = False
    TabOrder = 2
    OnKeyPress = Memo1KeyPress
  end
  object ClientSocket: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 8036
    OnConnect = ClientSocketConnect
    OnDisconnect = ClientSocketDisconnect
    OnRead = ClientSocketRead
    OnError = ClientSocketError
    Left = 200
    Top = 32
  end
  object ServerSocket: TServerSocket
    Active = False
    Port = 8036
    ServerType = stNonBlocking
    OnAccept = ServerSocketAccept
    OnClientConnect = ServerSocketClientConnect
    OnClientDisconnect = ServerSocketClientDisconnect
    OnClientRead = ServerSocketClientRead
    Left = 232
    Top = 32
  end
  object MainMenu1: TMainMenu
    Left = 112
    Top = 96
    object N1: TMenuItem
      Caption = #25991#20214
      object FileListenItem: TMenuItem
        Caption = #20316#20026#26381#21153#22120#30417#21548
        OnClick = FileListenItemClick
      end
      object FileConnectItem: TMenuItem
        Caption = #20316#20026#23458#25143#31471#38142#25509'...'
        OnClick = FileConnectItemClick
      end
      object FileDisconnectItem: TMenuItem
        Caption = #26029#24320#38142#25509'...'
        Enabled = False
        OnClick = FileDisconnectItemClick
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object N3: TMenuItem
        Caption = #20445#23384#32842#22825#35760#24405'...'
        OnClick = N3Click
      end
      object N2: TMenuItem
        Caption = #28165#31354#32842#22825#35760#24405
        OnClick = N2Click
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object FileExitItem: TMenuItem
        Caption = #36864#20986
        OnClick = FileExitItemClick
      end
    end
  end
  object SaveDialog1: TSaveDialog
    Filter = #25991#26412#25991#20214'(*.txt)|*.txt'
    Left = 272
    Top = 120
  end
end