📄 iwunit1.dfm

📁 Delphi 应用举例
💻 DFM
字号:
object formMain: TformMain
  Left = 0
  Top = 0
  Width = 712
  Height = 579
  Background.Fixed = False
  HandleTabs = False
  SupportedBrowsers = [brIE, brNetscape6]
  TemplateProcessor = IWTemplateProcessorHTML1
  DesignLeft = 243
  DesignTop = 125
  object IWButton1: TIWButton
    Left = 48
    Top = 64
    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 = <>
    TabOrder = 0
    OnClick = IWButton1Click
  end
  object IWEdit1: TIWEdit
    Left = 152
    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 IWMemo1: TIWMemo
    Left = 16
    Top = 168
    Width = 681
    Height = 377
    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 = (
      #27880#24847#36825#20960#28857#65306
      '1'#12289#22312'templates'#30446#24405#19979#26377#20010#25991#20214#21483#20570'index.0'#65292#23427#23601#26159#25105#20204#20351#29992#30340#27169#26495#65292#23427#30340
      '  '#21518#32512#19981#26159'htm'#20063#19981#26159'html'#65292#36825#26159#22240#20026#25105#20204#22312'IWTemplateProcessorHTML1'#30340
      '  template.default'#37324#25351#23450#20102#25991#20214#21517#12290
      '2'#12289#27169#26495#21253#21547#20102#19968#20010#21483'hello'#30340#26631#31614#65292#27809#26377#25511#20214#19982#23427#23545#24212#65292#22240#27492#25105#22312'IWTemplateProcessorHTML1'
      '  '#30340'onUnknownTag'#20107#20214#37324#22788#29702#20102#19968#19979':'
      
        '  procedure TformMain.IWTemplateProcessorHTML1UnknownTag(const A' +
        'Name: String;'
      '  var VValue: String);'
      '  begin'
      
        '      if Aname='#39'hello'#39' then  VValue:='#39'<p>This is a HELLO_TEXT</p' +
        '>'#39
      '  end;'
      ''
      '3'#12289#27169#26495#30340#20869#23481#22914#19979#65306
      '<html>'
      '<HEAD></HEAD>'
      '<BODY>'
      
        '<font color="#FF00FF">&nbsp;</font><font size="5" color="#FF00FF' +
        '">'#36825#26159#19968#20010#27169#26495#65281'</font>'
      '<form onsubmit="return FormDefaultSubmit();">'
      '<p>&nbsp;<font color="#00FF00">'#36825#26159#19968#20010#25353#38062'</font>'#65306' {%IWbutton1%}</p>'
      '<p>'#35831#36755#20837#19968#20010#20540#65306'{%IWedit1%}</p>'
      '<P></P>'
      '</form>'
      '<P>{%hello%}</P> '
      '<P>'#35828#26126#65306'</P>'
      '<P>{%IWMemo1%}</P>'
      '</BODY>'
      '</html>')
  end
  object IWTemplateProcessorHTML1: TIWTemplateProcessorHTML
    Enabled = True
    MasterFormTag = False
    TagType = ttIntraWeb
    Templates.Default = 'index.0'
    OnUnknownTag = IWTemplateProcessorHTML1UnknownTag
    Left = 272
    Top = 16
  end
  object IWLayoutMgrHTML1: TIWLayoutMgrHTML
    Enabled = True
    HTML.Strings = (
      '<HEAD>'
      '</HEAD><BODY contentEditable=true> '
      '{%IWButton1%}<P></P> '
      
        '<IMG id=IWEdit1 src="file:///C:/Documents%20and%20Settings/Admin' +
        'istrator/Local%20Settings/Temp/IntraWeb/IWEdit1.jpg"><P></P></BO' +
        'DY>')
    Left = 328
    Top = 16
  end
end
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -