u_web_input.dfm

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

object F_WEB_INPUT: TF_WEB_INPUT
  Left = 269
  Top = 194
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = 'F_WEB_INPUT'
  ClientHeight = 126
  ClientWidth = 457
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 14
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 457
    Height = 126
    Align = alClient
    BevelOuter = bvNone
    BevelWidth = 6
    Caption = 'Panel1'
    Color = clBackground
    TabOrder = 0
    object Panel2: TPanel
      Left = 0
      Top = 83
      Width = 457
      Height = 43
      Align = alBottom
      BevelInner = bvRaised
      BevelOuter = bvLowered
      Color = 15528178
      TabOrder = 1
      object BN_QD: TFlatButton
        Left = 235
        Top = 9
        Width = 71
        Height = 25
        Caption = #30830#23450'[F2]'
        Font.Charset = ANSI_CHARSET
        Font.Color = clGreen
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabStop = True
        TabOrder = 0
        OnClick = BN_QDClick
      end
      object BN_QX: TFlatButton
        Left = 330
        Top = 9
        Width = 72
        Height = 25
        Caption = #21462#28040'[Esc]'
        Font.Charset = ANSI_CHARSET
        Font.Color = clGreen
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabStop = True
        TabOrder = 1
        OnClick = BN_QXClick
      end
    end
    object Panel3: TPanel
      Left = 0
      Top = 0
      Width = 457
      Height = 83
      Align = alClient
      BevelInner = bvRaised
      BevelOuter = bvLowered
      Color = 15528178
      TabOrder = 0
      object LB_HINT: TLabel
        Left = 24
        Top = 14
        Width = 58
        Height = 16
        Caption = 'LB_HINT'
        Font.Charset = ANSI_CHARSET
        Font.Color = clMaroon
        Font.Height = -14
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object ED_INPUT: TFlatEdit
        Left = 14
        Top = 41
        Width = 427
        Height = 24
        ColorFocused = clInfoBk
        ColorFlat = clWhite
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -15
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        Text = 'ED_INPUT'
        OnExit = ED_INPUTExit
        OnKeyPress = ED_INPUTKeyPress
      end
    end
  end
end