unit1.dfm

delphi源码 ,inteweb编程示例

object WebModule1: TWebModule1
  OldCreateOrder = False
  Actions = <
    item
      Default = True
      Name = 'WebActionItem1'
      PathInfo = '/PageProducer1'
      Producer = PageProducer1
    end
    item
      MethodType = mtPost
      Name = 'WebActionItem2'
      PathInfo = '/TheResult'
      OnAction = WebModule1WebActionItem2Action
    end>
  Left = 192
  Top = 114
  Height = 150
  Width = 215
  object PageProducer1: TPageProducer
    HTMLFile = 'MyPage2.htm'
    Left = 56
    Top = 32
  end
end