unit2.dfm

来自「又一个利用网上寻呼提供商的web页面来发送网上寻呼的程序」· DFM 代码 · 共 163 行

object Form2: TForm2
  Left = 238
  Top = 130
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = '连接设置'
  ClientHeight = 172
  ClientWidth = 294
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clNavy
  Font.Height = -16
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 16
  object Label14: TLabel
    Left = 8
    Top = 8
    Width = 40
    Height = 16
    Caption = '地址:'
  end
  object Label11: TLabel
    Left = 8
    Top = 40
    Width = 40
    Height = 16
    Caption = '列表:'
  end
  object Label12: TLabel
    Left = 168
    Top = 8
    Width = 40
    Height = 16
    Caption = '端口:'
  end
  object Label15: TLabel
    Left = 168
    Top = 40
    Width = 40
    Height = 16
    Caption = '密码:'
  end
  object Label16: TLabel
    Left = 168
    Top = 72
    Width = 40
    Height = 16
    Caption = '呢称:'
  end
  object Label1: TLabel
    Left = 8
    Top = 72
    Width = 40
    Height = 16
    Caption = '头像:'
  end
  object edCServerAdd: TEdit
    Left = 48
    Top = 8
    Width = 113
    Height = 22
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    MaxLength = 20
    ParentFont = False
    TabOrder = 0
  end
  object cbCServer: TComboBox
    Left = 48
    Top = 40
    Width = 113
    Height = 22
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ItemHeight = 14
    ParentFont = False
    TabOrder = 1
    OnClick = cbCServerClick
  end
  object cbCFace: TComboBox
    Left = 48
    Top = 72
    Width = 57
    Height = 38
    Style = csOwnerDrawFixed
    ItemHeight = 32
    TabOrder = 2
    OnDrawItem = cbCFaceDrawItem
  end
  object edCPort: TEdit
    Left = 208
    Top = 8
    Width = 81
    Height = 22
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    MaxLength = 5
    ParentFont = False
    TabOrder = 3
  end
  object edCPassword: TEdit
    Left = 208
    Top = 40
    Width = 81
    Height = 22
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    MaxLength = 14
    ParentFont = False
    TabOrder = 4
  end
  object edCName: TEdit
    Left = 208
    Top = 72
    Width = 81
    Height = 22
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    MaxLength = 14
    ParentFont = False
    TabOrder = 5
  end
  object BitBtn1: TBitBtn
    Left = 57
    Top = 136
    Width = 75
    Height = 25
    Caption = '确定'
    TabOrder = 6
    OnClick = BitBtn1Click
    Kind = bkOK
  end
  object BitBtn2: TBitBtn
    Left = 161
    Top = 136
    Width = 75
    Height = 25
    Caption = '取消'
    TabOrder = 7
    Kind = bkCancel
  end
end