main.dfm

这是一套全面的网络组件

object Form1: TForm1
  Left = 234
  Top = 210
  Width = 574
  Height = 410
  Caption = 'POP3 Client with SSL / TLS support'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 24
    Top = 8
    Width = 31
    Height = 13
    Caption = 'Server'
  end
  object Label2: TLabel
    Left = 24
    Top = 32
    Width = 19
    Height = 13
    Caption = 'Port'
  end
  object Label4: TLabel
    Left = 24
    Top = 64
    Width = 22
    Height = 13
    Caption = 'User'
  end
  object Label5: TLabel
    Left = 248
    Top = 64
    Width = 46
    Height = 13
    Caption = 'Password'
  end
  object Label3: TLabel
    Left = 16
    Top = 88
    Width = 48
    Height = 13
    Caption = 'Messages'
  end
  object Label6: TLabel
    Left = 24
    Top = 216
    Width = 23
    Height = 13
    Caption = 'From'
  end
  object Label7: TLabel
    Left = 24
    Top = 240
    Width = 36
    Height = 13
    Caption = 'Subject'
  end
  object edtServer: TEdit
    Left = 80
    Top = 8
    Width = 369
    Height = 21
    TabOrder = 0
    Text = 'localhost'
  end
  object edtPort: TEdit
    Left = 80
    Top = 32
    Width = 49
    Height = 21
    TabOrder = 1
    Text = '995'
  end
  object edtUser: TEdit
    Left = 80
    Top = 64
    Width = 145
    Height = 21
    TabOrder = 3
    Text = 'CleverTester'
  end
  object edtPassword: TEdit
    Left = 304
    Top = 64
    Width = 145
    Height = 21
    TabOrder = 4
    Text = 'clevertester'
  end
  object btnConnect: TButton
    Left = 464
    Top = 16
    Width = 89
    Height = 25
    Caption = 'Connect'
    TabOrder = 5
    OnClick = btnConnectClick
  end
  object cbUseTLS: TCheckBox
    Left = 304
    Top = 32
    Width = 145
    Height = 17
    Caption = 'Use SSL / TLS'
    Checked = True
    State = cbChecked
    TabOrder = 2
  end
  object lvMessages: TListView
    Left = 16
    Top = 112
    Width = 433
    Height = 89
    Columns = <
      item
        Caption = 'From'
        Width = 120
      end
      item
        Caption = 'Subject'
        Width = 120
      end
      item
        Caption = 'Date'
        Width = 70
      end
      item
        Caption = 'UID'
        Width = 100
      end>
    HideSelection = False
    ReadOnly = True
    RowSelect = True
    TabOrder = 7
    ViewStyle = vsReport
    OnDblClick = btnViewClick
  end
  object edtFrom: TEdit
    Left = 72
    Top = 216
    Width = 481
    Height = 21
    Color = clBtnFace
    ReadOnly = True
    TabOrder = 10
  end
  object edtSubject: TEdit
    Left = 72
    Top = 240
    Width = 481
    Height = 21
    Color = clBtnFace
    ReadOnly = True
    TabOrder = 11
  end
  object memBody: TMemo
    Left = 16
    Top = 264
    Width = 537
    Height = 97
    ReadOnly = True
    ScrollBars = ssBoth
    TabOrder = 12
  end
  object btnDelete: TButton
    Left = 464
    Top = 160
    Width = 89
    Height = 25
    Caption = 'Delete Message'
    TabOrder = 9
    OnClick = btnDeleteClick
  end
  object btnDisconnect: TButton
    Left = 464
    Top = 56
    Width = 89
    Height = 25
    Caption = 'Disconnect'
    TabOrder = 6
    OnClick = btnDisconnectClick
  end
  object btnView: TButton
    Left = 464
    Top = 120
    Width = 89
    Height = 25
    Caption = 'View Message'
    TabOrder = 8
    OnClick = btnViewClick
  end
  object clPop: TclPop3
    OnVerifyServer = clPopVerifyServer
    Left = 240
    Top = 152
  end
  object clMailMessage: TclMailMessage
    Date = 38656.929073819400000000
    CharSet = 'iso-8859-1'
    ContentType = 'text/plain'
    MimeOLE = 'Produced By Clever Internet Suite MimeOLE v 6.0'
    Left = 288
    Top = 152
  end
end