unit1.dfm

一个简单的聊天程序－－聊天机器人

object Form1: TForm1
  Left = 250
  Top = 107
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  BorderStyle = bsDialog
  Caption = '     笨笨聊天室'
  ClientHeight = 324
  ClientWidth = 496
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 496
    Height = 288
    Align = alClient
    TabOrder = 1
    object chatroom: TRichEdit
      Left = 1
      Top = 1
      Width = 494
      Height = 286
      Align = alClient
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      HideSelection = False
      ParentFont = False
      ScrollBars = ssVertical
      TabOrder = 0
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 288
    Width = 496
    Height = 36
    Align = alBottom
    TabOrder = 0
    object say: TEdit
      Left = 6
      Top = 6
      Width = 425
      Height = 21
      TabOrder = 0
      OnKeyPress = sayKeyPress
    end
    object sayb: TButton
      Left = 440
      Top = 6
      Width = 49
      Height = 21
      Caption = 'Enter'
      TabOrder = 1
      OnClick = saybClick
    end
  end
end