unitmain.~dfm

用c++ builder编写的发送EMAIL程序的源码,此程序是利用C++ Builder自带控件NMPOP3、NMSMTP开发的

object FormMain: TFormMain
  Left = 213
  Top = 115
  Width = 642
  Height = 442
  Caption = 'MyMail'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = '宋体'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 14
  object Splitter1: TSplitter
    Left = 0
    Top = 201
    Width = 634
    Height = 3
    Cursor = crVSplit
    Align = alTop
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 377
    Width = 634
    Height = 19
    Panels = <>
    SimplePanel = False
  end
  object ListViewMail: TListView
    Left = 0
    Top = 42
    Width = 634
    Height = 159
    Align = alTop
    Checkboxes = True
    Columns = <
      item
        Caption = '发信人'
        Width = 200
      end
      item
        Caption = '主题'
        Width = 200
      end>
    TabOrder = 1
    ViewStyle = vsReport
    OnClick = ListViewMailClick
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 634
    Height = 42
    AutoSize = True
    ButtonHeight = 38
    ButtonWidth = 39
    Caption = 'ToolBar1'
    EdgeBorders = [ebLeft, ebTop, ebRight, ebBottom]
    Flat = True
    Images = ImageList1
    TabOrder = 2
    object ToolButton1: TToolButton
      Left = 0
      Top = 0
      Caption = 'ToolButton1'
      ImageIndex = 0
      OnClick = ToolButton1Click
    end
    object ToolButton2: TToolButton
      Left = 39
      Top = 0
      Caption = 'ToolButton2'
      ImageIndex = 1
      OnClick = ToolButton2Click
    end
    object ToolButton5: TToolButton
      Left = 78
      Top = 0
      Caption = 'ToolButton5'
      ImageIndex = 2
      OnClick = ToolButton5Click
    end
    object ToolButton4: TToolButton
      Left = 117
      Top = 0
      Width = 8
      Caption = 'ToolButton4'
      ImageIndex = 3
      Style = tbsSeparator
    end
    object ToolButton3: TToolButton
      Left = 125
      Top = 0
      Caption = 'ToolButton3'
      ImageIndex = 3
      OnClick = ToolButton3Click
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 204
    Width = 634
    Height = 173
    Align = alClient
    Caption = 'Panel1'
    TabOrder = 3
    object Splitter2: TSplitter
      Left = 480
      Top = 1
      Width = 3
      Height = 171
      Cursor = crHSplit
      Align = alRight
    end
    object MemoMail: TMemo
      Left = 1
      Top = 1
      Width = 479
      Height = 171
      Align = alClient
      Lines.Strings = (
        'MemoMail')
      ScrollBars = ssVertical
      TabOrder = 0
    end
    object MemoAttach: TMemo
      Left = 483
      Top = 1
      Width = 150
      Height = 171
      Align = alRight
      Lines.Strings = (
        'MemoAttach')
      ScrollBars = ssVertical
      TabOrder = 1
    end
  end
  object MainMenu1: TMainMenu
    Left = 216
    Top = 176
    object N1: TMenuItem
      Caption = '文件'
      object N2: TMenuItem
        Caption = '写新邮件'
        OnClick = N2Click
      end
      object N5: TMenuItem
        Caption = '接收邮件'
        OnClick = N5Click
      end
      object N8: TMenuItem
        Caption = '删除邮件'
        OnClick = N8Click
      end
      object N9: TMenuItem
        Caption = '断开链接'
        OnClick = N9Click
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object N3: TMenuItem
        Caption = '设置'
        OnClick = N3Click
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object N7: TMenuItem
        Caption = '退出'
        OnClick = N7Click
      end
    end
  end
  object NMPOP31: TNMPOP3
    Port = 110
    TimeOut = 50000
    ReportLevel = 0
    OnDisconnect = NMPOP31Disconnect
    OnConnect = NMPOP31Connect
    OnInvalidHost = NMPOP31InvalidHost
    OnHostResolved = NMPOP31HostResolved
    OnConnectionFailed = NMPOP31ConnectionFailed
    OnConnectionRequired = NMPOP31ConnectionRequired
    Parse = False
    DeleteOnRead = False
    OnAuthenticationNeeded = NMPOP31AuthenticationNeeded
    OnAuthenticationFailed = NMPOP31AuthenticationFailed
    OnRetrieveStart = NMPOP31RetrieveStart
    OnRetrieveEnd = NMPOP31RetrieveEnd
    OnFailure = NMPOP31Failure
    Left = 256
    Top = 176
  end
  object ImageList1: TImageList
    Height = 32
    Width = 32
    Left = 296
    Top = 176
    Bitmap = {
      494C010104000900040020002000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000800000006000000001001800000000000090
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000