iwunit1.dfm

来自「Delphi 应用举例」· DFM 代码 · 共 82 行

object formMain: TformMain
  Left = 0
  Top = 0
  Width = 439
  Height = 399
  Background.Fixed = False
  HandleTabs = False
  SupportedBrowsers = [brIE, brNetscape6]
  DesignLeft = 314
  DesignTop = 127
  object IWHiddenField1: TIWHiddenField
    Left = 184
    Top = 64
    Width = 105
    Height = 25
    ZIndex = 0
    text = '123'
  end
  object IWButton1: TIWButton
    Left = 40
    Top = 112
    Width = 249
    Height = 25
    ZIndex = 0
    ButtonType = btButton
    Caption = 'IWEdit1  to  IWHiddenField1'
    Color = clBtnFace
    DoSubmitValidation = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <
      item
        EventCode.Strings = (
          'SubmitForm.IWHIDDENFIELD1.value=SubmitForm.IWEDIT1.value;')
        Event = 'onClick'
      end>
    TabOrder = 0
  end
  object IWEdit1: TIWEdit
    Left = 40
    Top = 64
    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 = 1
    PasswordPrompt = False
    Text = 'IWEdit1'
  end
  object IWButton2: TIWButton
    Left = 40
    Top = 168
    Width = 249
    Height = 25
    ZIndex = 0
    ButtonType = btButton
    Caption = 'HiddenField  to  this Button'
    Color = clBtnFace
    DoSubmitValidation = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    TabOrder = 2
    OnClick = IWButton2Click
  end
end