unitnewmail.dfm

C++Builder高级应用开发指南随书源码

object FormNewMail: TFormNewMail
  Left = 326
  Top = 188
  Width = 499
  Height = 335
  Caption = '发新邮件'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 491
    Height = 113
    Align = alTop
    BevelInner = bvLowered
    TabOrder = 0
    object Label1: TLabel
      Left = 48
      Top = 16
      Width = 48
      Height = 12
      Caption = '收信人：'
    end
    object Label2: TLabel
      Left = 60
      Top = 40
      Width = 36
      Height = 12
      Caption = '抄送：'
    end
    object Label3: TLabel
      Left = 60
      Top = 64
      Width = 36
      Height = 12
      Caption = '主题：'
    end
    object Label4: TLabel
      Left = 59
      Top = 88
      Width = 36
      Height = 12
      Caption = '附件：'
    end
    object EditToAddress: TEdit
      Left = 102
      Top = 8
      Width = 283
      Height = 20
      TabOrder = 0
      Text = 'EditToAddress'
    end
    object EditCarbonCopy: TEdit
      Left = 102
      Top = 32
      Width = 283
      Height = 20
      TabOrder = 1
      Text = 'EditCarbonCopy'
    end
    object EditSubject: TEdit
      Left = 102
      Top = 56
      Width = 283
      Height = 20
      TabOrder = 2
      Text = 'EditSubject'
    end
    object Button1: TButton
      Left = 408
      Top = 76
      Width = 75
      Height = 25
      Caption = '附件'
      TabOrder = 3
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 408
      Top = 48
      Width = 75
      Height = 25
      Caption = '发送'
      TabOrder = 4
      OnClick = Button2Click
    end
    object ComboBoxAttach: TComboBox
      Left = 102
      Top = 80
      Width = 284
      Height = 20
      ItemHeight = 12
      TabOrder = 5
      Text = 'ComboBoxAttach'
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 289
    Width = 491
    Height = 19
    Panels = <>
    SimplePanel = False
  end
  object MemoNewMail: TMemo
    Left = 0
    Top = 113
    Width = 491
    Height = 176
    Align = alClient
    Lines.Strings = (
      'MemoNewMail')
    TabOrder = 2
  end
  object NMSMTP1: TNMSMTP
    Port = 25
    ReportLevel = 0
    OnDisconnect = NMSMTP1Disconnect
    OnConnect = NMSMTP1Connect
    OnInvalidHost = NMSMTP1InvalidHost
    EncodeType = uuMime
    ClearParams = True
    SubType = mtPlain
    Charset = 'us-ascii'
    OnSendStart = NMSMTP1SendStart
    OnSuccess = NMSMTP1Success
    OnFailure = NMSMTP1Failure
    OnAttachmentNotFound = NMSMTP1AttachmentNotFound
    Left = 208
    Top = 168
  end
  object OpenDialog1: TOpenDialog
    Left = 240
    Top = 168
  end
end