unit1.dfm

Delphi7编程80例(完全版)

object Form1: TForm1
  Left = 258
  Top = 176
  Width = 534
  Height = 502
  BorderWidth = 6
  Caption = #37038#20214#32676#21457#28436#31034
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCloseQuery = FormCloseQuery
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object ListBox1: TListBox
    Left = 0
    Top = 0
    Width = 169
    Height = 393
    ItemHeight = 12
    MultiSelect = True
    PopupMenu = PopupMenu1
    TabOrder = 0
  end
  object GroupBox1: TGroupBox
    Left = 176
    Top = 0
    Width = 337
    Height = 249
    Caption = #37038#20214
    TabOrder = 1
    object Label1: TLabel
      Left = 16
      Top = 72
      Width = 36
      Height = 12
      Caption = #20869#23481#65306
    end
    object me_content: TMemo
      Left = 16
      Top = 88
      Width = 305
      Height = 145
      ScrollBars = ssBoth
      TabOrder = 0
    end
    object le_title: TLabeledEdit
      Left = 16
      Top = 40
      Width = 305
      Height = 20
      EditLabel.Width = 36
      EditLabel.Height = 12
      EditLabel.Caption = #26631#39064#65306
      TabOrder = 1
    end
  end
  object GroupBox2: TGroupBox
    Left = 176
    Top = 256
    Width = 337
    Height = 137
    Caption = #37197#32622
    TabOrder = 2
    object le_smtp: TLabeledEdit
      Left = 16
      Top = 32
      Width = 201
      Height = 20
      EditLabel.Width = 36
      EditLabel.Height = 12
      EditLabel.Caption = 'SMTP'#65306
      TabOrder = 0
    end
    object le_user: TLabeledEdit
      Left = 136
      Top = 72
      Width = 81
      Height = 20
      EditLabel.Width = 72
      EditLabel.Height = 12
      EditLabel.Caption = 'SMTP'#29992#25143#21517#65306
      TabOrder = 3
    end
    object le_email: TLabeledEdit
      Left = 16
      Top = 104
      Width = 297
      Height = 20
      EditLabel.Width = 108
      EditLabel.Height = 12
      EditLabel.Caption = #21457#36865#32773'('#22238#22797#22320#22336')'#65306
      TabOrder = 5
    end
    object le_port: TLabeledEdit
      Left = 232
      Top = 32
      Width = 81
      Height = 20
      EditLabel.Width = 36
      EditLabel.Height = 12
      EditLabel.Caption = #31471#21475#65306
      TabOrder = 1
    end
    object le_pass: TLabeledEdit
      Left = 232
      Top = 72
      Width = 81
      Height = 20
      EditLabel.Width = 60
      EditLabel.Height = 12
      EditLabel.Caption = 'SMTP'#23494#30721#65306
      PasswordChar = '#'
      TabOrder = 4
    end
    object cb_authentication: TCheckBox
      Left = 16
      Top = 64
      Width = 113
      Height = 17
      Caption = #26159#21542#26381#21153#22120#39564#35777
      TabOrder = 2
    end
  end
  object Button1: TButton
    Left = 8
    Top = 408
    Width = 75
    Height = 25
    Caption = #23548#20837
    TabOrder = 3
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 88
    Top = 408
    Width = 75
    Height = 25
    Caption = #23548#20986
    TabOrder = 4
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 184
    Top = 408
    Width = 75
    Height = 25
    Caption = #21457#36865
    TabOrder = 5
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 264
    Top = 408
    Width = 75
    Height = 25
    Caption = #20013#26029
    TabOrder = 6
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 344
    Top = 408
    Width = 75
    Height = 25
    Caption = #20445#23384
    TabOrder = 7
    OnClick = Button5Click
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 444
    Width = 514
    Height = 19
    Panels = <>
    SimplePanel = True
    SimpleText = #23601#32490'...'
  end
  object Button6: TButton
    Left = 432
    Top = 408
    Width = 75
    Height = 25
    Caption = #36864#20986
    TabOrder = 9
    OnClick = Button6Click
  end
  object IdSMTP1: TIdSMTP
    MaxLineAction = maException
    ReadTimeout = 0
    Port = 25
    AuthenticationType = atNone
    Left = 304
    Top = 104
  end
  object IdMessage1: TIdMessage
    AttachmentEncoding = 'MIME'
    BccList = <>
    CCList = <>
    Encoding = meMIME
    Recipients = <>
    ReplyTo = <>
    Left = 264
    Top = 104
  end
  object OpenDialog1: TOpenDialog
    Filter = #25991#26412#25991#20214'(*.txt)|*.txt|'#25152#26377#25991#20214'(*.*)|*.*'
    Left = 104
    Top = 96
  end
  object SaveDialog1: TSaveDialog
    Filter = #25991#26412#25991#20214'(*.txt)|*.txt|'#25152#26377#25991#20214'(*.*)|*.*'
    Left = 144
    Top = 96
  end
  object PopupMenu1: TPopupMenu
    Left = 64
    Top = 96
    object N1: TMenuItem
      Caption = #28155#21152#22320#22336
      OnClick = N1Click
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object N2: TMenuItem
      Caption = #21024#38500#25152#36873
      OnClick = N2Click
    end
    object N3: TMenuItem
      Caption = #28165#31354#21015#34920
      OnClick = N3Click
    end
  end
end