unitaddcontact.dfm

Delphi版飞信源代码 用Delphi实现飞信功能

object FormAddContact: TFormAddContact
  Left = 0
  Top = 0
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #28155#21152#32852#31995#20154
  ClientHeight = 338
  ClientWidth = 411
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 13
  object rdPhoneNum: TRadioButton
    Left = 32
    Top = 32
    Width = 113
    Height = 17
    Caption = #23545#26041#25163#26426#21495#65306
    Checked = True
    TabOrder = 0
    TabStop = True
    OnClick = rdPhoneNumClick
  end
  object rdFetionNum: TRadioButton
    Left = 32
    Top = 64
    Width = 113
    Height = 17
    Caption = #23545#26041#39134#20449#21495#65306
    TabOrder = 1
    OnClick = rdPhoneNumClick
  end
  object edPhoneNum: TEdit
    Left = 184
    Top = 30
    Width = 121
    Height = 21
    MaxLength = 11
    TabOrder = 2
    OnKeyPress = edPhoneNumKeyPress
    OnKeyUp = edPhoneNumKeyUp
  end
  object edSipNum: TEdit
    Left = 184
    Top = 62
    Width = 121
    Height = 21
    Enabled = False
    MaxLength = 9
    TabOrder = 3
    OnKeyPress = edPhoneNumKeyPress
    OnKeyUp = edSipNumKeyUp
  end
  object GroupBox1: TGroupBox
    Left = 16
    Top = 104
    Width = 371
    Height = 97
    Caption = #32852#31995#20154#20449#24687
    TabOrder = 4
    object mmUserInfo: TMemo
      Left = 32
      Top = 21
      Width = 313
      Height = 60
      TabOrder = 0
    end
  end
  object GroupBox2: TGroupBox
    Left = 16
    Top = 207
    Width = 371
    Height = 66
    Caption = #21457#20986#30003#35831
    TabOrder = 5
    object Label1: TLabel
      Left = 32
      Top = 32
      Width = 24
      Height = 13
      Caption = #25105#26159
    end
    object Label2: TLabel
      Left = 119
      Top = 32
      Width = 252
      Height = 13
      Caption = #65292#27491#22312#20351#29992#20013#22269#31227#21160#39134#20449#19994#21153#65292#24819#21152#20320#20026#22909#21451#12290
    end
    object edPSMsg: TEdit
      Left = 62
      Top = 29
      Width = 51
      Height = 21
      TabOrder = 0
    end
  end
  object BitBtn1: TBitBtn
    Left = 192
    Top = 296
    Width = 75
    Height = 25
    Caption = #30830#23450
    TabOrder = 6
    OnClick = BitBtn1Click
    Kind = bkOK
  end
  object BitBtn2: TBitBtn
    Left = 296
    Top = 296
    Width = 75
    Height = 25
    Caption = #21462#28040
    TabOrder = 7
    Kind = bkCancel
  end
end