u_web_chat.dfm

以前写的一个利用P2P 技术的一个通讯的例子。里面用到了 DBISAM 、INDY 控件。

object F_WEB_CHAT: TF_WEB_CHAT
  Left = 43
  Top = 164
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = 'F_WEB_CHAT'
  ClientHeight = 439
  ClientWidth = 590
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 14
  object MM_CHAT: TMemo
    Left = 0
    Top = 0
    Width = 590
    Height = 161
    Align = alTop
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = []
    Lines.Strings = (
      'MM_CHAT')
    ParentFont = False
    TabOrder = 0
  end
  object PN_CHAT: TPanel
    Left = 0
    Top = 161
    Width = 590
    Height = 43
    Align = alTop
    BevelInner = bvSpace
    BevelOuter = bvLowered
    Color = 15528178
    TabOrder = 1
    object BN_FH: TFlatButton
      Left = 432
      Top = 8
      Width = 89
      Height = 27
      Caption = #36864#20986'[Esc]'
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnClick = BN_FHClick
    end
    object BN_SEND: TFlatButton
      Left = 312
      Top = 8
      Width = 89
      Height = 27
      Caption = #21457#36865'[Ent]'
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = BN_SENDClick
    end
  end
  object MM_LOG: TMemo
    Left = 0
    Top = 204
    Width = 590
    Height = 235
    Align = alClient
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = []
    Lines.Strings = (
      'MM_LOG')
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 2
  end
end