unit1.dfm

在应用程序中加入flash,一个可以在软件窗体中加入flash的源代码程序

object Form1: TForm1
  Left = 200
  Top = 101
  Width = 477
  Height = 417
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 8
    Top = 8
    Width = 48
    Height = 12
    Caption = '收件人：'
  end
  object Label2: TLabel
    Left = 256
    Top = 8
    Width = 36
    Height = 12
    Caption = '主题：'
  end
  object Label3: TLabel
    Left = 8
    Top = 32
    Width = 36
    Height = 12
    Caption = '抄送：'
  end
  object Label4: TLabel
    Left = 256
    Top = 32
    Width = 36
    Height = 12
    Caption = '暗送：'
  end
  object Label5: TLabel
    Left = 8
    Top = 56
    Width = 36
    Height = 12
    Caption = '附件：'
  end
  object Label6: TLabel
    Left = 8
    Top = 80
    Width = 48
    Height = 12
    Caption = '发件人：'
  end
  object Label7: TLabel
    Left = 240
    Top = 80
    Width = 72
    Height = 12
    Caption = '发件人姓名：'
  end
  object Label8: TLabel
    Left = 232
    Top = 104
    Width = 84
    Height = 12
    Caption = 'SMTP服务器名：'
  end
  object Label9: TLabel
    Left = 8
    Top = 104
    Width = 48
    Height = 12
    Caption = '用户名：'
  end
  object ToAddress: TEdit
    Left = 56
    Top = 8
    Width = 169
    Height = 20
    TabOrder = 0
    Text = 'ToAddress'
  end
  object Subject: TEdit
    Left = 296
    Top = 8
    Width = 161
    Height = 20
    TabOrder = 1
    Text = 'Subject'
  end
  object ToCarbonCopy: TEdit
    Left = 56
    Top = 32
    Width = 169
    Height = 20
    TabOrder = 2
    Text = 'ToCarbonCopy'
  end
  object ToBlindCarbonCopy: TEdit
    Left = 296
    Top = 32
    Width = 161
    Height = 20
    TabOrder = 3
    Text = 'ToBlindCarbonCopy'
  end
  object Attachment: TEdit
    Left = 56
    Top = 56
    Width = 401
    Height = 20
    TabOrder = 4
    Text = 'Attachment'
  end
  object FromName: TEdit
    Left = 320
    Top = 80
    Width = 137
    Height = 20
    TabOrder = 5
    Text = 'FromName'
  end
  object FromAddress: TEdit
    Left = 56
    Top = 80
    Width = 169
    Height = 20
    TabOrder = 6
    Text = 'FromAddress'
  end
  object Host: TEdit
    Left = 320
    Top = 104
    Width = 137
    Height = 20
    TabOrder = 7
    Text = 'Host'
  end
  object UserID: TEdit
    Left = 56
    Top = 104
    Width = 169
    Height = 20
    TabOrder = 8
    Text = 'UserID'
  end
  object Body: TMemo
    Left = 8
    Top = 168
    Width = 449
    Height = 193
    Lines.Strings = (
      'Body')
    TabOrder = 9
  end
  object SendButton: TButton
    Left = 16
    Top = 136
    Width = 75
    Height = 25
    Caption = '发送(&S)'
    TabOrder = 10
    OnClick = SendButtonClick
  end
  object NewButton: TButton
    Left = 104
    Top = 136
    Width = 75
    Height = 25
    Caption = '新邮件(&N)'
    TabOrder = 11
    OnClick = NewButtonClick
  end
  object ClearButton: TButton
    Left = 192
    Top = 136
    Width = 75
    Height = 25
    Caption = '清除(&L)'
    TabOrder = 12
    OnClick = ClearButtonClick
  end
  object AttachButton: TButton
    Left = 280
    Top = 136
    Width = 75
    Height = 25
    Caption = '添加附件(&A)'
    TabOrder = 13
    OnClick = AttachButtonClick
  end
  object CloseButton: TButton
    Left = 368
    Top = 136
    Width = 75
    Height = 25
    Caption = '关闭(&C)'
    TabOrder = 14
    OnClick = CloseButtonClick
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 371
    Width = 469
    Height = 19
    Panels = <>
    SimplePanel = False
  end
  object NMSMTP: TNMSMTP
    Port = 25
    ReportLevel = 0
    EncodeType = uuMime
    ClearParams = True
    SubType = mtPlain
    Charset = 'us-ascii'
    OnHeaderIncomplete = NMSMTPHeaderIncomplete
    OnSuccess = NMSMTPSuccess
    OnFailure = NMSMTPFailure
    OnAuthenticationFailed = NMSMTPAuthenticationFailed
    Left = 280
    Top = 192
  end
  object OpenDialog: TOpenDialog
    Left = 240
    Top = 192
  end
end