Delphi控件源码

开发平台：

Delphi

Home_dm.dfm：源码内容

							object Home: THome
  OldCreateOrder = False
  PageProducer = PageProducer
  AppServices = WebAppComponents
  Left = 254
  Top = 107
  Height = 296
  Width = 215
  object PageProducer: TPageProducer
    ScriptEngine = 'JScript'
    Left = 48
    Top = 8
  end
  object WebAppComponents: TWebAppComponents
    Sessions = SessionsService1
    PageDispatcher = PageDispatcher
    AdapterDispatcher = AdapterDispatcher
    ApplicationAdapter = ApplicationAdapter
    EndUserAdapter = EndUserSessionAdapter1
    UserListService = WebUserList1
    Left = 48
    Top = 56
  end
  object ApplicationAdapter: TApplicationAdapter
    ApplicationTitle = 'WSnapUsers'
    Left = 48
    Top = 104
    object TAdapterDefaultActions
    end
    object TAdapterDefaultFields
    end
  end
  object PageDispatcher: TPageDispatcher
    Left = 48
    Top = 152
  end
  object AdapterDispatcher: TAdapterDispatcher
    Left = 48
    Top = 200
  end
  object WebUserList1: TWebUserList
    UserItems = <
      item
        UserName = 'Marco'
        Password = 'm'
      end>
    Left = 120
    Top = 8
  end
  object EndUserSessionAdapter1: TEndUserSessionAdapter
    LoginPage = 'loginform'
    Left = 120
    Top = 56
    object TAdapterDefaultActions
    end
    object TAdapterDefaultFields
      object AdapterField: TAdapterField
      end
    end
  end
  object SessionsService1: TSessionsService
    Left = 120
    Top = 112
  end
end

						