⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 unit1.dfm

📁 又一个利用网上寻呼提供商的web页面来发送网上寻呼的程序
💻 DFM
📖 第 1 页 / 共 5 页
字号:
            ImageIndex = 1
            object GroupBox6: TGroupBox
              Left = 2
              Top = 16
              Width = 162
              Height = 177
              BiDiMode = bdLeftToRight
              Caption = '聊天功能设置:'
              Font.Charset = GB2312_CHARSET
              Font.Color = clNavy
              Font.Height = -16
              Font.Name = '宋体'
              Font.Style = []
              ParentBiDiMode = False
              ParentFont = False
              TabOrder = 0
              object Label12: TLabel
                Left = 5
                Top = 25
                Width = 88
                Height = 16
                Caption = '客户端设置:'
              end
              object Label13: TLabel
                Left = 5
                Top = 120
                Width = 88
                Height = 16
                Caption = '服务端设置:'
              end
              object cbServerImidiate: TCheckBox
                Left = 3
                Top = 144
                Width = 150
                Height = 17
                Caption = '收到数据立即转发'
                Checked = True
                State = cbChecked
                TabOrder = 0
                OnClick = cbServerImidiateClick
              end
              object cbServerConnect: TCheckBox
                Left = 3
                Top = 72
                Width = 150
                Height = 17
                Caption = '有连接时声音提示'
                Checked = True
                State = cbChecked
                TabOrder = 1
                OnClick = cbServerConnectClick
              end
              object cbServerLeave: TCheckBox
                Left = 3
                Top = 96
                Width = 150
                Height = 17
                Caption = '有离开时声音提示'
                Checked = True
                State = cbChecked
                TabOrder = 2
                OnClick = cbServerLeaveClick
              end
              object cbClientSay: TCheckBox
                Left = 3
                Top = 48
                Width = 150
                Height = 17
                Caption = '有发言时声音提示'
                TabOrder = 3
                OnClick = cbClientSayClick
              end
            end
            object GroupBox8: TGroupBox
              Left = 0
              Top = 208
              Width = 161
              Height = 185
              Caption = '网上寻呼设置:'
              TabOrder = 1
              object Label15: TLabel
                Left = 8
                Top = 83
                Width = 136
                Height = 16
                Caption = '连接超时:      秒'
              end
              object Label16: TLabel
                Left = 8
                Top = 154
                Width = 136
                Height = 16
                Caption = '等待超时:      秒'
              end
              object Label33: TLabel
                Left = 8
                Top = 48
                Width = 136
                Height = 16
                Caption = '自动重试:      次'
              end
              object Label14: TLabel
                Left = 8
                Top = 119
                Width = 136
                Height = 16
                Caption = '发送超时:      秒'
              end
              object CBAutoRetry: TCheckBox
                Left = 8
                Top = 24
                Width = 137
                Height = 17
                Caption = '失败则自动重试'
                Checked = True
                ParentShowHint = False
                ShowHint = False
                State = cbChecked
                TabOrder = 0
              end
              object EDCTimeOut: TEdit
                Left = 80
                Top = 80
                Width = 49
                Height = 24
                TabOrder = 1
                Text = '8'
              end
              object EDWTimeOut: TEdit
                Left = 80
                Top = 150
                Width = 49
                Height = 24
                TabOrder = 2
                Text = '8'
              end
              object EDAutoRetry: TEdit
                Left = 80
                Top = 45
                Width = 49
                Height = 24
                TabOrder = 3
                Text = '5'
              end
              object EDSTimeOut: TEdit
                Left = 80
                Top = 115
                Width = 49
                Height = 24
                TabOrder = 4
                Text = '8'
              end
            end
          end
        end
      end
      object GroupBox4: TGroupBox
        Left = 161
        Top = 0
        Width = 177
        Height = 441
        Align = alLeft
        Caption = '主机列表'
        TabOrder = 1
        object Label28: TLabel
          Left = 8
          Top = 24
          Width = 40
          Height = 16
          Caption = '名称:'
        end
        object Label29: TLabel
          Left = 8
          Top = 56
          Width = 40
          Height = 16
          Caption = '地址:'
        end
        object Label30: TLabel
          Left = 8
          Top = 88
          Width = 40
          Height = 16
          Caption = '端口:'
        end
        object Label31: TLabel
          Left = 8
          Top = 120
          Width = 40
          Height = 16
          Caption = '密码:'
        end
        object Label32: TLabel
          Left = 8
          Top = 152
          Width = 72
          Height = 16
          Caption = '简单描述:'
        end
        object asbSSave: TSpeedButton
          Left = 16
          Top = 368
          Width = 65
          Height = 22
          Caption = '保存'
          Flat = True
          OnClick = asbSSaveClick
        end
        object asbSDelete: TSpeedButton
          Left = 96
          Top = 368
          Width = 65
          Height = 22
          Caption = '删除'
          Flat = True
          OnClick = asbSDeleteClick
        end
        object asbSClear: TSpeedButton
          Left = 32
          Top = 408
          Width = 113
          Height = 22
          Caption = '清空列表'
          Flat = True
          OnClick = asbSClearClick
        end
        object ammAbout: TMemo
          Left = 8
          Top = 176
          Width = 161
          Height = 185
          Font.Charset = GB2312_CHARSET
          Font.Color = clNavy
          Font.Height = -14
          Font.Name = '宋体'
          Font.Style = []
          MaxLength = 50
          ParentFont = False
          TabOrder = 0
        end
        object acbSName: TComboBox
          Left = 48
          Top = 24
          Width = 121
          Height = 22
          Font.Charset = GB2312_CHARSET
          Font.Color = clNavy
          Font.Height = -14
          Font.Name = '宋体'
          Font.Style = []
          ItemHeight = 0
          MaxLength = 10
          ParentFont = False
          TabOrder = 1
          OnClick = acbSNameClick
        end
        object aedSAddress: TEdit
          Left = 48
          Top = 56
          Width = 121
          Height = 22
          Font.Charset = GB2312_CHARSET
          Font.Color = clNavy
          Font.Height = -14
          Font.Name = '宋体'
          Font.Style = []
          MaxLength = 20
          ParentFont = False
          TabOrder = 2
        end
        object aedSPort: TEdit
          Left = 48
          Top = 88
          Width = 121
          Height = 22
          Font.Charset = GB2312_CHARSET
          Font.Color = clNavy
          Font.Height = -14
          Font.Name = '宋体'
          Font.Style = []
          MaxLength = 5
          ParentFont = False
          TabOrder = 3
          Text = '80'
        end
        object aedSPassword: TEdit
          Left = 48
          Top = 120
          Width = 121
          Height = 22
          Font.Charset = GB2312_CHARSET
          Font.Color = clNavy
          Font.Height = -14
          Font.Name = '宋体'
          Font.Style = []
          MaxLength = 14
          ParentFont = False
          TabOrder = 4
          Text = 'NetTime'
        end
      end
      object GroupBox3: TGroupBox
        Left = 0
        Top = 0
        Width = 161
        Height = 441
        Align = alLeft
        Caption = '好友资料'
        TabOrder = 2
        object Label19: TLabel
          Left = 8
          Top = 24
          Width = 40
          Height = 16
          Caption = '姓名:'
        end
        object Label20: TLabel
          Left = 8
          Top = 88
          Width = 40
          Height = 16
          Caption = '呼台:'
        end
        object Label21: TLabel
          Left = 8
          Top = 120
          Width = 40
          Height = 16
          Caption = '台号:'
        end
        object Label22: TLabel
          Left = 8
          Top = 152
          Width = 40
          Height = 16
          Caption = '号码:'
        end
        object Label23: TLabel
          Left = 8
          Top = 184
          Width = 40
          Height = 16
          Caption = '机型:'
        end
        object Label24: TLabel
          Left = 8
          Top = 216
          Width = 40
          Height = 16
          Caption = '电话:'
        end
        object Label25: TLabel
          Left = 8
          Top = 248
          Width = 40
          Height = 16
          Caption = 'OICQ:'
        end
        object Label26: TLabel
          Left = 8
          Top = 280
          Width = 40
          Height = 16
          Caption = '地址:'
        end
        object Label27: TLabel
          Left = 8
          Top = 56
          Width = 40
          Height = 16
          Caption = '性别:'
        end
        object asbSave: TSpeedButton
          Left = 16
          Top = 368
          Width = 65
          Height = 22
          Caption = '保存'
          Flat = True
          OnClick = asbSaveClick
        end
        object asbDelete: TSpeedButton
          Left = 88
          Top = 368
          Width = 65
          Height = 22
          Caption = '删除'
          Flat = True
          OnClick = asbDeleteClick
        end
        object asbClear: TSpeedButton
          Left = 24
          Top = 408
          Width = 113
          Height = 22
          Caption = '清空列表'
          Flat = True
          OnClick = asbClearClick
        end
        object acbFriend: TComboBox

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -