Componentes.Terceros.DevExp.../official/x.38/ExpressWeb Framework/Demos/Delphi/WebDateEdit/WebDateEditData.pas
2008-08-27 11:56:15 +00:00

36 lines
717 B
ObjectPascal

unit WebDateEditData;
interface
uses SysUtils, Classes, HTTPApp, cxWebModule, cxWebAppSrv;
type
TWebDateEditDataMod = class(TcxWebHomeDataModule)
private
{ Private declarations }
public
{ Public declarations }
end;
function WebDateEditDataMod: TWebDateEditDataMod;
implementation
{$R *.DFM}
uses
WebReq, WebCntxt, cxWebModFact, Variants;
function WebDateEditDataMod: TWebDateEditDataMod;
begin
Result := TWebDateEditDataMod(WebContext.FindModuleClass(TWebDateEditDataMod));
end;
initialization
if WebRequestHandler <> nil then
WebRequestHandler.AddWebModuleFactory(TcxWebHomeDataModuleFactory.Create(TWebDateEditDataMod, caDestroy));
end.