unit1.dfm

delphi开发的直接收发邮件的软件的源码

object Form1: TForm1
  Left = 194
  Top = 103
  Width = 422
  Height = 368
  Caption = #39280#21697#35746#21333#31649#29702#31995#32479#38382#39064#21453#39304
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 15
    Top = 238
    Width = 65
    Height = 13
    Caption = #20854#20182#25991#20214#65306
  end
  object Label4: TLabel
    Left = 15
    Top = 76
    Width = 65
    Height = 13
    Caption = #35814#32454#25551#36848#65306
  end
  object Label5: TLabel
    Left = 15
    Top = 47
    Width = 75
    Height = 13
    Caption = #24744#30340'E-mail:'
  end
  object Label6: TLabel
    Left = 14
    Top = 21
    Width = 65
    Height = 13
    Caption = #30041#35328#26631#39064#65306
  end
  object Label2: TLabel
    Left = 8
    Top = 304
    Width = 289
    Height = 17
    AutoSize = False
    Caption = #29366#24577#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object btnSend: TButton
    Left = 307
    Top = 296
    Width = 75
    Height = 25
    Hint = #31435#21363#21457#36865#27492#21453#39304#20449#24687#32473#36719#20214#24320#21457#32773#12290
    Caption = #21457#36865
    TabOrder = 0
    OnClick = btnSendClick
  end
  object mmContent: TMemo
    Left = 16
    Top = 94
    Width = 369
    Height = 139
    Hint = #38382#39064#35814#32454#25551#36848#12290
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
  end
  object edtFrom: TEdit
    Left = 96
    Top = 42
    Width = 285
    Height = 21
    Hint = #24744#30340#30005#23376#37038#20214#22320#22336
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
  end
  object edtSubject: TEdit
    Left = 96
    Top = 10
    Width = 285
    Height = 21
    Hint = #24744#35201#21453#39304#30340#38382#39064#30340#26631#39064#12290
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
  end
  object ProgressBar1: TProgressBar
    Left = 16
    Top = 272
    Width = 369
    Height = 16
    Min = 0
    Max = 100
    TabOrder = 4
  end
  object Edit1: TEdit
    Left = 80
    Top = 240
    Width = 233
    Height = 21
    Hint = #28155#21152#19982#27492#38382#39064#30456#20851#30340#38468#20214#25991#20214#65292#20165#25903#25345#19968#20010#38468#20214#65292#22914#26377#22810#20010#25991#20214#35831#20808#21387#32553#25171#21253#20026#19968#20010#12290
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
  end
  object Button1: TButton
    Left = 320
    Top = 240
    Width = 65
    Height = 25
    Hint = #22312#26412#26426#36873#25321#38468#20214#25991#20214
    Caption = #27983#35272#8230#8230
    ParentShowHint = False
    ShowHint = True
    TabOrder = 6
    OnClick = Button1Click
  end
  object IdDNSResolver: TIdDNSResolver
    Port = 53
    ReceiveTimeout = 4000
    Left = 64
    Top = 144
  end
  object IdSMTP: TIdSMTP
    OnWork = IdSMTPWork
    OnWorkBegin = IdSMTPWorkBegin
    OnWorkEnd = IdSMTPWorkEnd
    Left = 224
    Top = 131
  end
  object IdMsgSend: TIdMessage
    BccList = <>
    CCList = <>
    Recipients = <>
    ReplyTo = <>
    Left = 296
    Top = 173
  end
  object OpenDialog1: TOpenDialog
    Filter = #20219#24847#25991#20214' *.*|*.*'
    Left = 168
    Top = 120
  end
end