addfirendunt.dfm

絮语2007视频聊天软件源程序.仅供参考

object addfirendfrm: Taddfirendfrm
  Left = 259
  Top = 222
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = '添加好友'
  ClientHeight = 183
  ClientWidth = 337
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnPaint = FormPaint
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 8
    Top = 8
    Width = 321
    Height = 137
    Shape = bsFrame
  end
  object Label1: TLabel
    Left = 16
    Top = 16
    Width = 194
    Height = 13
    Caption = '确定要添加 firendid 为好友吗?'
    Transparent = True
  end
  object Label2: TLabel
    Left = 24
    Top = 32
    Width = 75
    Height = 13
    Caption = '帐号:userid'
    Transparent = True
  end
  object Label3: TLabel
    Left = 176
    Top = 32
    Width = 63
    Height = 13
    Caption = 'IP:fromip'
    Transparent = True
  end
  object Label4: TLabel
    Left = 176
    Top = 48
    Width = 54
    Height = 13
    Caption = '职务:bus'
    Transparent = True
  end
  object Label5: TLabel
    Left = 24
    Top = 48
    Width = 61
    Height = 13
    Caption = '部门:dept'
    Transparent = True
  end
  object Label6: TLabel
    Left = 16
    Top = 72
    Width = 119
    Height = 13
    Caption = '验证信息(25字以内)'
    Transparent = True
  end
  object xpButton1: TxpButton
    Left = 160
    Top = 152
    Width = 75
    Height = 25
    Caption = '确定添加'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = '宋体'
    Font.Style = []
    TabOrder = 0
    TabStop = True
    OnClick = xpButton1Click
  end
  object xpButton2: TxpButton
    Left = 240
    Top = 152
    Width = 75
    Height = 25
    Caption = '取消关闭'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = '宋体'
    Font.Style = []
    TabOrder = 1
    TabStop = True
    OnClick = xpButton2Click
  end
  object RichEdit1: TRichEdit
    Left = 16
    Top = 88
    Width = 305
    Height = 49
    HideScrollBars = False
    Lines.Strings = (
      'RichEdit1')
    MaxLength = 50
    ScrollBars = ssVertical
    TabOrder = 2
  end
end