delphimvcframework/samples/routing/WebModuleU.pas

34 lines
531 B
ObjectPascal
Raw Normal View History

2013-11-09 10:32:54 +01:00
unit WebModuleU;
interface
uses
System.SysUtils, System.Classes,
Web.HTTPApp, MVCFramework;
type
TWebModule1 = class(TWebModule)
procedure WebModuleCreate(Sender: TObject);
private
DMVC: TMVCEngine;
end;
var
WebModuleClass: TComponentClass = TWebModule1;
implementation
{$R *.dfm}
uses RoutingSampleControllerU;
procedure TWebModule1.WebModuleCreate(Sender: TObject);
begin
DMVC := TMVCEngine.Create(self);
DMVC.AddController(TRoutingSampleController);
end;
end.