main_frm.dfm

一个简单的RICH聊天程序

object frmMain: TfrmMain
  Left = 285
  Top = 147
  Width = 455
  Height = 480
  Caption = #32842#22825
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 16
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 447
    Height = 49
    Align = alTop
    TabOrder = 0
    object btnLink: TButton
      Left = 16
      Top = 12
      Width = 77
      Height = 28
      Caption = #36830#25509
      TabOrder = 0
      OnClick = btnLinkClick
    end
    object btnClose: TButton
      Left = 104
      Top = 12
      Width = 77
      Height = 28
      Caption = #26029#24320
      TabOrder = 1
      OnClick = btnCloseClick
    end
    object btnListen: TButton
      Left = 192
      Top = 12
      Width = 77
      Height = 28
      Caption = #30417#21548
      TabOrder = 2
      OnClick = btnListenClick
    end
    object btnClear: TButton
      Left = 284
      Top = 12
      Width = 77
      Height = 28
      Caption = #28165#31354
      TabOrder = 3
      OnClick = btnClearClick
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 49
    Width = 447
    Height = 397
    Align = alClient
    Caption = 'Panel2'
    TabOrder = 1
    object Splitter1: TSplitter
      Left = 1
      Top = 192
      Width = 445
      Height = 4
      Cursor = crVSplit
      Align = alBottom
    end
    object mmStatus: TMemo
      Left = 1
      Top = 1
      Width = 445
      Height = 191
      Align = alClient
      ScrollBars = ssBoth
      TabOrder = 0
    end
    object stbrInfo: TStatusBar
      Left = 1
      Top = 377
      Width = 445
      Height = 19
      Panels = <
        item
          Width = 50
        end>
      SimplePanel = False
    end
    object redtTalk: TRichEdit
      Left = 1
      Top = 196
      Width = 445
      Height = 181
      Align = alBottom
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      HideSelection = False
      ParentFont = False
      ScrollBars = ssBoth
      TabOrder = 2
      OnKeyDown = redtTalkKeyDown
    end
  end
  object cscktTalk: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 0
    OnLookup = cscktTalkLookup
    OnConnecting = cscktTalkConnecting
    OnConnect = cscktTalkConnect
    OnDisconnect = cscktTalkDisconnect
    OnRead = cscktTalkRead
    Left = 324
    Top = 60
  end
  object sscktTalk: TServerSocket
    Active = False
    Port = 0
    ServerType = stNonBlocking
    OnListen = sscktTalkListen
    OnAccept = sscktTalkAccept
    OnClientConnect = sscktTalkClientConnect
    OnClientDisconnect = sscktTalkClientDisconnect
    OnClientRead = cscktTalkRead
    Left = 368
    Top = 60
  end
end