iwunit1.dfm

Delphi下IntraWeb应用开发详解中里面的 事件冲突的代码处理

object formMain: TformMain
  Left = 0
  Top = 0
  Width = 823
  Height = 576
  Background.Fixed = False
  HandleTabs = False
  SupportedBrowsers = [brIE, brNetscape6]
  DesignLeft = 157
  DesignTop = 129
  object IWButton1: TIWButton
    Left = 24
    Top = 96
    Width = 75
    Height = 25
    ZIndex = 0
    ButtonType = btButton
    Caption = 'IWButton1'
    Color = clBtnFace
    DoSubmitValidation = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <
      item
        EventCode.Strings = (
          'SubmitForm.IWCHECKBOX1.checked==true')
        Event = 'onClick'
      end>
    TabOrder = 0
    OnClick = IWButton1Click
  end
  object IWCheckBox1: TIWCheckBox
    Left = 24
    Top = 40
    Width = 193
    Height = 21
    ZIndex = 0
    Caption = #25191#34892#26381#21153#31471#20107#20214
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    DoSubmitValidation = True
    Style = stNormal
    TabOrder = 1
    Checked = False
  end
  object IWMemo1: TIWMemo
    Left = 24
    Top = 136
    Width = 737
    Height = 385
    ZIndex = 0
    Editable = True
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    RawText = False
    ReadOnly = False
    Required = False
    TabOrder = 2
    WantReturns = False
    FriendlyName = 'IWMemo1'
    Lines.Strings = (
      #36825#20010#31243#24207#28436#31034#23458#25143#31471#20107#20214#19982#26381#21153#22120#31471#20107#20214#8220#20914#31361#8221#30340#24773#20917#12290
      ''
      '1'#12289'IWButton1'#30340#26381#21153#22120#31471'onclick'#20107#20214#20195#30721#65306
      'procedure TformMain.IWButton1Click(Sender: TObject);'
      'begin'
      '   webapplication.ShowMessage('#39#26381#21153#22120#31471#20107#20214'onclick'#39');'
      'end;'
      ''
      '2'#12289'IWButton1'#30340#23458#25143#31471'onclick'#20107#20214#20195#30721#65306
      'SubmitForm.IWCHECKBOX1.checked==true'
      '//'#27880#24847#65281#24403#20914#31361#23384#22312#26102#65292#23458#25143#31471#20195#30721#21482#33021#26159#34920#36798#24335#65292#25925#19981#29992#20998#21495#12290
      ''
      '3'#12289#39029#38754#19978#30456#24212#30340#28304#20195#30721#65306
      '...'
      'function IWBUTTON1_onClick(ASender) {'
      
        'if (SubmitForm.IWCHECKBOX1.checked==true){return SubmitClickConf' +
        'irm('#39'IWBUTTON1'#39','#39#39', true, '#39#39')}else{return false}'
      '}'
      '...'
      
        '<input value="IWButton1" name="IWBUTTON1" type="button" onclick=' +
        '"return IWBUTTON1_onClick(this);"'
      ' id="IWBUTTON1" class="IWBUTTON1CSS">'
      '...'
      '')
  end
end