u_web_locate.dfm

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

object F_WEB_LOCATE: TF_WEB_LOCATE
  Left = 303
  Top = 246
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = #26597#35810#26465#20214#35774#32622
  ClientHeight = 372
  ClientWidth = 584
  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 GroupBox1: TGroupBox
    Left = 0
    Top = 44
    Width = 584
    Height = 69
    Align = alTop
    Caption = #26597#35810#26465#20214
    Color = 15528178
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      Left = 19
      Top = 17
      Width = 42
      Height = 14
      Caption = #26597' '#35810' '#39033
    end
    object Label3: TLabel
      Left = 411
      Top = 17
      Width = 42
      Height = 14
      Caption = #27604' '#36739' '#31526
    end
    object Label4: TLabel
      Left = 13
      Top = 41
      Width = 48
      Height = 14
      Caption = #26597#35810#20869#23481
    end
    object CB_COMP: TFlatEdit
      Tag = 4
      Left = 464
      Top = 14
      Width = 106
      Height = 20
      ColorFocused = clInfoBk
      ColorFlat = clWhite
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ReadOnly = True
      TabOrder = 1
      Text = 'CB_COMP'
    end
    object ED_CONT: TFlatEdit
      Left = 72
      Top = 38
      Width = 498
      Height = 18
      ColorFocused = clInfoBk
      ColorFlat = clWhite
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = 'Lucida Console'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      Text = 'ED_CONT'
    end
    object CB_ITEM: TFlatComboBox
      Tag = 20
      Left = 72
      Top = 14
      Width = 329
      Height = 20
      Color = clWindow
      DropDownCount = 16
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = 'Lucida Console'
      Font.Style = [fsBold]
      ItemHeight = 12
      ParentFont = False
      TabOrder = 0
      Text = 'CB_ITEM'
      ItemIndex = -1
      OnExit = CB_ITEMExit
    end
    object FlatButton1: TFlatButton
      Left = 563
      Top = 22
      Width = 5
      Height = 10
      Hint = #26174#31034#23458#25151#21015#34920
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Comic Sans MS'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
    end
  end
  object GB_DESC: TGroupBox
    Left = 0
    Top = 113
    Width = 584
    Height = 217
    Align = alClient
    Caption = ' '#26597#35810#26465#20214#25551#36848' '
    Color = 15528178
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 3
    object Bevel1: TBevel
      Left = 2
      Top = 16
      Width = 580
      Height = 2
      Align = alTop
      Shape = bsTopLine
    end
    object MM_DESC: TMemo
      Left = 2
      Top = 18
      Width = 580
      Height = 197
      Align = alClient
      BevelEdges = []
      BevelInner = bvNone
      BevelOuter = bvNone
      BorderStyle = bsNone
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      Lines.Strings = (
        'MM_DESC')
      ParentCtl3D = False
      ParentFont = False
      ReadOnly = True
      ScrollBars = ssVertical
      TabOrder = 0
    end
  end
  object RG_CXFS: TRadioGroup
    Left = 0
    Top = 0
    Width = 584
    Height = 44
    Align = alTop
    Caption = #26597#35810#26041#24335
    Color = 15528178
    Columns = 3
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    Items.Strings = (
      #31616#21333#26597#35810
      #22810#26465#20214#26597#35810)
    ParentColor = False
    ParentFont = False
    TabOrder = 2
    OnClick = RG_CXFSClick
  end
  object Panel2: TPanel
    Left = 0
    Top = 330
    Width = 584
    Height = 42
    Align = alBottom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Color = 15528178
    TabOrder = 1
    object BN_FH: TFlatButton
      Left = 462
      Top = 8
      Width = 77
      Height = 25
      Caption = #21462#28040'[&Esc]'
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabStop = True
      TabOrder = 1
      OnClick = BN_FHClick
    end
    object BN_QD: TFlatButton
      Left = 358
      Top = 8
      Width = 77
      Height = 25
      Caption = #26597#35810'[F2]'
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabStop = True
      TabOrder = 0
      OnClick = BN_QDClick
    end
  end
  object BN_AND: TFlatButton
    Left = 378
    Top = 12
    Width = 64
    Height = 25
    Color = 15528178
    Caption = #24182#19988'[F3]'
    Font.Charset = ANSI_CHARSET
    Font.Color = clGreen
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    ParentColor = False
    TabOrder = 4
    OnClick = BN_ANDClick
  end
  object BN_OR: TFlatButton
    Left = 441
    Top = 12
    Width = 64
    Height = 25
    Color = 15528178
    Caption = #25110#32773'[F4]'
    Font.Charset = ANSI_CHARSET
    Font.Color = clGreen
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    ParentColor = False
    TabOrder = 5
    OnClick = BN_ORClick
  end
  object BN_RESET: TFlatButton
    Left = 504
    Top = 12
    Width = 64
    Height = 25
    Color = 15528178
    Caption = #37325#35774'[F5]'
    Font.Charset = ANSI_CHARSET
    Font.Color = clGreen
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    ParentColor = False
    TabOrder = 6
    OnClick = BN_RESETClick
  end
end