unit1.~dfm

发送EMail的一个例子,以前用它编过程序

object Form1: TForm1
  Left = 16
  Top = 251
  Width = 798
  Height = 570
  Caption = 'Web Browser'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  WindowState = wsMaximized
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Edit1: TEdit
    Left = 8
    Top = 16
    Width = 393
    Height = 21
    TabOrder = 0
    Text = 'http://www.antitrustthemovie.com'
    OnKeyDown = Edit1KeyDown
  end
  object WebBrowser1: TWebBrowser
    Left = 8
    Top = 40
    Width = 777
    Height = 481
    TabOrder = 1
    ControlData = {
      4C0000004E500000B63100000000000000000000000000000000000000000000
      000000004C000000000000000000000001000000E0D057007335CF11AE690800
      2B2E126208000000000000004C0000000114020000000000C000000000000046
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000100000000000000000000000000000000000000}
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 524
    Width = 790
    Height = 19
    Panels = <
      item
        Text = 'Done.'
        Width = 50
      end>
    SimplePanel = False
  end
  object Button1: TButton
    Left = 408
    Top = 8
    Width = 41
    Height = 25
    Caption = 'Stop'
    TabOrder = 3
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 456
    Top = 8
    Width = 41
    Height = 25
    Caption = 'Back'
    TabOrder = 4
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 504
    Top = 8
    Width = 41
    Height = 25
    Caption = 'Foward'
    TabOrder = 5
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 552
    Top = 8
    Width = 41
    Height = 25
    Caption = 'Home'
    TabOrder = 6
    OnClick = Button4Click
  end
  object ProgressBar1: TProgressBar
    Left = 616
    Top = 8
    Width = 150
    Height = 16
    Min = 0
    Max = 100
    TabOrder = 7
  end
end