iwunit1.dfm

来自「Delphi网络应用开发的源代码」· DFM 代码 · 共 152 行

object formMain: TformMain
  Left = 0
  Top = 0
  Width = 451
  Height = 237
  Background.Fixed = False
  HandleTabs = False
  SupportedBrowsers = [brIE, brNetscape6]
  OnCreate = IWAppFormCreate
  DesignLeft = 314
  DesignTop = 127
  object IWApplet1: TIWApplet
    Left = 8
    Top = 8
    Width = 441
    Height = 81
    ZIndex = 0
    Alignment = aaTop
    ClassFile = 'PacText.class'
    HorizSpace = 0
    Params.Strings = (
      'bgcolor=FFFFFF'
      'paccolor=00FF00'
      'speed=2'
      'numtext=3'
      'font=Monospaced'
      'space=40'
      'tremble=4'
      'textstart=80'
      'fontsize=30'
      'textcolor=FF0000')
    VertSpace = 0
  end
  object IWLabel1: TIWLabel
    Left = 24
    Top = 120
    Width = 42
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #25991#26412'1'
  end
  object IWLabel2: TIWLabel
    Left = 24
    Top = 160
    Width = 42
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #25991#26412'2'
  end
  object IWLabel3: TIWLabel
    Left = 24
    Top = 200
    Width = 42
    Height = 16
    ZIndex = 0
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Caption = #25991#26412'3'
  end
  object IWEdit1: TIWEdit
    Left = 128
    Top = 112
    Width = 121
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWEdit1'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 0
    PasswordPrompt = False
  end
  object IWEdit2: TIWEdit
    Left = 128
    Top = 152
    Width = 121
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWEdit2'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 1
    PasswordPrompt = False
  end
  object IWEdit3: TIWEdit
    Left = 128
    Top = 192
    Width = 121
    Height = 21
    ZIndex = 0
    BGColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWEdit3'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 2
    PasswordPrompt = False
  end
  object IWButton1: TIWButton
    Left = 320
    Top = 152
    Width = 75
    Height = 25
    ZIndex = 0
    ButtonType = btButton
    Caption = #36816#34892
    Color = clBtnFace
    DoSubmitValidation = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    TabOrder = 3
    OnClick = IWButton1Click
  end
end