unit1.dfm

又一个利用网上寻呼提供商的web页面来发送网上寻呼的程序

object ForLover: TForLover
  Left = 154
  Top = 51
  BorderStyle = bsSingle
  Caption = '网络时代V1.0正式版   [e-mail]   LoveBcb.yeah.net'
  ClientHeight = 475
  ClientWidth = 518
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clNavy
  Font.Height = -16
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poDefault
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object PCControl: TPageControl
    Left = 0
    Top = 0
    Width = 518
    Height = 475
    ActivePage = TabSheet2
    Align = alClient
    Style = tsFlatButtons
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = '网上寻呼'
      object Splitter3: TSplitter
        Left = 153
        Top = 256
        Width = 3
        Height = 185
        Cursor = crHSplit
      end
      object Memo2: TMemo
        Left = 0
        Top = 256
        Width = 153
        Height = 185
        Align = alLeft
        Color = clAqua
        ScrollBars = ssVertical
        TabOrder = 0
      end
      object mmStatus: TMemo
        Left = 156
        Top = 256
        Width = 354
        Height = 185
        Align = alClient
        Color = clAqua
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -16
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 1
      end
      object Panel4: TPanel
        Left = 0
        Top = 0
        Width = 510
        Height = 256
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 2
        object Bevel2: TBevel
          Left = 0
          Top = 0
          Width = 510
          Height = 2
          Align = alTop
          Shape = bsTopLine
        end
        object Panel6: TPanel
          Left = 337
          Top = 2
          Width = 173
          Height = 254
          Align = alClient
          BevelOuter = bvNone
          TabOrder = 0
          OnResize = Panel6Resize
          object Label5: TLabel
            Left = 55
            Top = 8
            Width = 64
            Height = 16
            Caption = '信息内容'
            Font.Charset = GB2312_CHARSET
            Font.Color = clBlue
            Font.Height = -16
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
            Transparent = True
          end
          object bbtCall: TSpeedButton
            Left = 50
            Top = 224
            Width = 72
            Height = 22
            Hint = '单击发送信息!'
            Caption = '发送信息'
            Flat = True
            Font.Charset = GB2312_CHARSET
            Font.Color = clNavy
            Font.Height = -16
            Font.Name = '宋体'
            Font.Style = []
            NumGlyphs = 2
            ParentFont = False
            ParentShowHint = False
            ShowHint = True
            OnClick = bbtCallClick
          end
          object mmWord: TMemo
            Left = 0
            Top = 32
            Width = 172
            Height = 185
            Color = clAqua
            Font.Charset = GB2312_CHARSET
            Font.Color = clMaroon
            Font.Height = -16
            Font.Name = '宋体'
            Font.Style = []
            Lines.Strings = (
              '万事如意')
            MaxLength = 100
            ParentFont = False
            TabOrder = 0
          end
        end
        object Panel7: TPanel
          Left = 0
          Top = 2
          Width = 337
          Height = 254
          Align = alLeft
          BevelOuter = bvNone
          TabOrder = 1
          object Label8: TLabel
            Left = 48
            Top = 8
            Width = 72
            Height = 16
            Caption = '朋友列表:'
            Color = clGray
            Font.Charset = GB2312_CHARSET
            Font.Color = clBlue
            Font.Height = -16
            Font.Name = '宋体'
            Font.Style = []
            ParentColor = False
            ParentFont = False
            Transparent = True
          end
          object Label1: TLabel
            Left = 160
            Top = 8
            Width = 56
            Height = 16
            Caption = '寻呼台:'
            Color = clGray
            Font.Charset = GB2312_CHARSET
            Font.Color = clBlue
            Font.Height = -16
            Font.Name = '宋体'
            Font.Style = []
            ParentColor = False
            ParentFont = False
            Transparent = True
          end
          object Label7: TLabel
            Left = 160
            Top = 48
            Width = 40
            Height = 16
            Caption = '台号:'
            Font.Charset = GB2312_CHARSET
            Font.Color = clBlue
            Font.Height = -16
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
            Transparent = True
          end
          object Label2: TLabel
            Left = 160
            Top = 88
            Width = 40
            Height = 16
            Caption = '号码:'
            Font.Charset = GB2312_CHARSET
            Font.Color = clBlue
            Font.Height = -16
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
            Transparent = True
          end
          object Label4: TLabel
            Left = 160
            Top = 128
            Width = 40
            Height = 16
            Caption = '贵姓:'
            Font.Charset = GB2312_CHARSET
            Font.Color = clBlue
            Font.Height = -16
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
            Transparent = True
          end
          object Label3: TLabel
            Left = 160
            Top = 168
            Width = 40
            Height = 16
            Caption = '称呼:'
            Color = clNone
            Font.Charset = GB2312_CHARSET
            Font.Color = clBlue
            Font.Height = -16
            Font.Name = '宋体'
            Font.Style = []
            ParentColor = False
            ParentFont = False
            Transparent = True
          end
          object Label6: TLabel
            Left = 160
            Top = 208
            Width = 40
            Height = 16
            Caption = '机型:'
            Font.Charset = GB2312_CHARSET
            Font.Color = clBlue
            Font.Height = -16
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
            Transparent = True
          end
          object LBPassWord: TLabel
            Left = 248
            Top = 88
            Width = 40
            Height = 16
            Caption = '密码:'
            Font.Charset = GB2312_CHARSET
            Font.Color = clBlue
            Font.Height = -16
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
            Transparent = True
          end
          object cbFriend: TListBox
            Left = 0
            Top = 24
            Width = 153
            Height = 225
            Color = clAqua
            ItemHeight = 16
            TabOrder = 0
            OnClick = cbFriendClick
          end
          object cbServer: TComboBox
            Left = 160
            Top = 24
            Width = 169
            Height = 22
            Style = csOwnerDrawFixed
            Color = clAqua
            Font.Charset = GB2312_CHARSET
            Font.Color = clMaroon
            Font.Height = -14
            Font.Name = '宋体'
            Font.Style = []
            ItemHeight = 16
            ParentFont = False
            TabOrder = 1
            OnClick = cbServerClick
          end
          object cbServerCode: TComboBox
            Left = 160
            Top = 64
            Width = 169
            Height = 22
            Style = csOwnerDrawFixed
            Color = clAqua
            Font.Charset = GB2312_CHARSET
            Font.Color = clMaroon
            Font.Height = -14
            Font.Name = '宋体'
            Font.Style = []
            ItemHeight = 16
            ParentFont = False
            TabOrder = 2
          end
          object edCallNum: TEdit
            Left = 160
            Top = 104
            Width = 81
            Height = 22
            Color = clAqua
            Font.Charset = GB2312_CHARSET
            Font.Color = clNavy
            Font.Height = -14
            Font.Name = '宋体'
            Font.Style = []
            MaxLength = 20
            ParentFont = False
            TabOrder = 3
          end
          object cbName: TComboBox
            Left = 160
            Top = 144
            Width = 169
            Height = 24
            Color = clAqua
            Font.Charset = GB2312_CHARSET
            Font.Color = clMaroon
            Font.Height = -16
            Font.Name = '宋体'
            Font.Style = []
            ItemHeight = 16
            MaxLength = 6
            ParentFont = False
            TabOrder = 4
            Items.Strings = (
              '朱'
              '王 '
              '耿'
              '余')
          end
          object cbSex: TComboBox
            Left = 160
            Top = 184
            Width = 169
            Height = 22
            Style = csOwnerDrawFixed
            Color = clAqua
            Font.Charset = GB2312_CHARSET
            Font.Color = clMaroon
            Font.Height = -16
            Font.Name = '宋体'
            Font.Style = []
            ItemHeight = 16
            MaxLength = 6
            ParentFont = False
            TabOrder = 5
            Items.Strings = (
              '先生'
              '女士')
          end
          object cbType: TComboBox
            Left = 160
            Top = 224
            Width = 169
            Height = 22
            Style = csOwnerDrawFixed
            Color = clAqua
            Font.Charset = GB2312_CHARSET
            Font.Color = clMaroon
            Font.Height = -16
            Font.Name = '宋体'
            Font.Style = []
            ItemHeight = 16
            ParentFont = False
            TabOrder = 6
            Items.Strings = (
              '中文寻呼'
              '数字寻呼')
          end
          object edPassWord: TEdit
            Left = 248
            Top = 104
            Width = 81
            Height = 22
            Color = clAqua
            Font.Charset = GB2312_CHARSET
            Font.Color = clNavy
            Font.Height = -14
            Font.Name = '宋体'
            Font.Style = []
            ParentFont = False
            PasswordChar = '*'
            TabOrder = 7