📄 main.dfm

📁 这是一套全面的网络组件
💻 DFM
字号:
object MainForm: TMainForm
  Left = 261
  Top = 62
  Width = 547
  Height = 443
  Caption = 'MS SMTP Mail Sender'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 8
    Width = 515
    Height = 13
    Caption = 
      'This demo demonstrates how to send MIME mail message using Micro' +
      'soft Exchange server'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label3: TLabel
    Left = 9
    Top = 110
    Width = 47
    Height = 13
    Caption = 'Plain Text'
  end
  object Label4: TLabel
    Left = 276
    Top = 110
    Width = 56
    Height = 13
    Caption = 'Plain HTML'
  end
  object Label5: TLabel
    Left = 11
    Top = 243
    Width = 59
    Height = 13
    Caption = 'Attachments'
  end
  object Label6: TLabel
    Left = 8
    Top = 335
    Width = 138
    Height = 13
    Caption = 'Exchange drop/pickup folder'
  end
  object Label7: TLabel
    Left = 11
    Top = 36
    Width = 23
    Height = 13
    Caption = 'From'
  end
  object Label8: TLabel
    Left = 10
    Top = 58
    Width = 32
    Height = 13
    Caption = 'To List'
  end
  object Label9: TLabel
    Left = 10
    Top = 82
    Width = 36
    Height = 13
    Caption = 'Subject'
  end
  object memText: TMemo
    Left = 8
    Top = 126
    Width = 254
    Height = 110
    Lines.Strings = (
      
        'This is MIME test message built using Clever MailMessage compone' +
        'nt')
    ScrollBars = ssBoth
    TabOrder = 3
    WordWrap = False
  end
  object memHtml: TMemo
    Left = 275
    Top = 126
    Width = 254
    Height = 110
    Lines.Strings = (
      '<html>'
      '<body>'
      
        '<p>This is MIME test message built using Clever MailMessage comp' +
        'onent</p>'
      '</body>'
      '</html>')
    ScrollBars = ssBoth
    TabOrder = 4
    WordWrap = False
  end
  object lbAttachments: TListBox
    Left = 9
    Top = 261
    Width = 379
    Height = 55
    ItemHeight = 13
    TabOrder = 5
  end
  object btnAdd: TButton
    Left = 396
    Top = 263
    Width = 75
    Height = 25
    Caption = 'Add...'
    TabOrder = 6
    OnClick = btnAddClick
  end
  object edtPickup: TEdit
    Left = 156
    Top = 331
    Width = 373
    Height = 21
    TabOrder = 8
    Text = 'C:\Inetpub\mailroot\Pickup'
  end
  object btnClear: TButton
    Left = 396
    Top = 291
    Width = 75
    Height = 25
    Caption = 'Clear'
    TabOrder = 7
    OnClick = btnClearClick
  end
  object btnSend: TButton
    Left = 422
    Top = 368
    Width = 107
    Height = 25
    Caption = 'Send Message'
    TabOrder = 10
    OnClick = btnSendClick
  end
  object btnNew: TButton
    Left = 306
    Top = 368
    Width = 107
    Height = 25
    Caption = 'New Message'
    TabOrder = 9
    OnClick = btnNewClick
  end
  object edtFrom: TEdit
    Left = 50
    Top = 30
    Width = 479
    Height = 21
    TabOrder = 0
    Text = 'test@myhost.com'
  end
  object edtToList: TEdit
    Left = 50
    Top = 54
    Width = 480
    Height = 21
    TabOrder = 1
    Text = 'john@nexthost.com,doe@thirdhost.com'
  end
  object edtSubject: TEdit
    Left = 50
    Top = 78
    Width = 480
    Height = 21
    TabOrder = 2
    Text = 'Clever MailMessage Test'
  end
  object OpenDialog: TOpenDialog
    Options = [ofEnableSizing]
    Left = 488
    Top = 262
  end
  object clMailMessage: TclMailMessage
    Date = 38031.676125254600000000
    CharSet = 'iso-8859-1'
    ContentType = 'text/plain'
    MimeOLE = 'Produced By Clever Internet Suite MimeOLE v 6.0'
    Left = 236
    Top = 356
  end
end
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -