首页 > 代码库 > 使用 IntraWeb (38) - TIWAppForm、TIWForm、TIWBaseHTMLForm、TIWBaseForm

使用 IntraWeb (38) - TIWAppForm、TIWForm、TIWBaseHTMLForm、TIWBaseForm


窗体 < TIWAppForm < TIWForm < TIWBaseHTMLForm < TIWBaseForm.

TIWAppForm 所在单元及继承链:
IWAppForm.TIWAppForm < TIWForm < TIWBaseHTMLForm < TIWBaseForm < TIWModuleDsn < TIWContainer < TIWBaseContainer < TScrollingWinControl < TWinControl < TControl < TComponent < TPersistent < TObject

主要成员:
property OnURLRequest: TOnURLRequest //响应下面的 DoURLRequest 方法procedure DoURLRequest(aRequest: THttpRequest) //执行 OnURLRequest 事件; 如: DoURLRequest(WebApplication.Request);function MessageForm: TIWMessageFormClass  //函数获取个类而不是对象; 它是个虚函数, 或许是为了在继承时美化弹出窗口class procedure SetAsMainForm              //设置为主窗口; 须用在 initialization 区class procedure SetURL(const aPath: string; const aDocument: string) //设置虚拟地址class function RequestAuth(aRequest: THttpRequest; var rGroup: string): Boolean	//安全判断; 它是虚函数, 可以继承并增加安全条件 



TIWForm 所在单元及继承链:
IWForm.TIWForm < TIWBaseHTMLForm < TIWBaseForm < TIWModuleDsn < TIWContainer < TIWBaseContainer < TScrollingWinControl < TWinControl < TControl < TComponent < TPersistent < TObject

{TIWForm = class(TIWBaseHTMLForm, IIWHTML40Container, IIWHTML40Form) //它同时实现了两个接口}主要成员:
property ActiveControl: TIWCustomControl //当前被激活的控件property Background: TIWBackground	 //背景图像设置property LayoutMgr: TIWContainerLayout   //指定布局管理器property HandleTabs: Boolean //暂未使用property LeftToRight: Boolean		 //文字方向property LockUntilLoaded: Boolean	 //在加载完毕前是否禁止操作, 默认 Trueproperty LockOnSubmit: Boolean		 //是否禁止重复提交, 默认 Trueproperty StyleSheet: TIWFileReference	 //要使用的 CSS 文件; 文件须在 wwwroot 下(或嵌套)property ShowHint //property ServerOnResize: Boolean         //暂未使用; only writeproperty ProgressIndicator: TIWProgressIndicator //指定进度提示器property Theme: string    //暂未使用property XPTheme: Boolean //property JavaScript: TStringList //js 代码property DocType: string    //现在默认 ; 譬如可以指定为:   property KeepAlive: Boolean //保持激活, 以保证 Session 不过期; 应该是用在异步事件用时较长时, 但要慎用, 它会把 SessionTimeout 弄成四百多天; 默认 False;property OnDefaultAction: TNotifyEvent //默认事件; 譬如在 TIWEdit 编辑后回车, 如果没有给它写 OnSubmit 事件, 将执行默认事件property OnResize; //在 ServerOnResize 暂时弃用的情况下, 它只执行一次constructor Create(aOwner: TComponent); override;procedure AddToInitProc(const ACode: string); //添加用于初始化的 js 代码procedure DoDefaultAction; //执行一次 OnDefaultActionprocedure SetIWAJAXNotifier(aIWAJAXNotifier: TIWBaseHTML40Component); //TIWAJAXNotifier 就是调用它和下面的 SendAJAXNotification, 感觉直接调用它们应该比 TIWAJAXNotifier 控件更灵活.function SendAJAXNotification: Boolean;       //function GetIWAJAXNotificationJSCode: string; //function GetIsStrictMode: Boolean; //好像是判断是不是 IE 兼容模式class function FindParentForm(Control: TControl): TIWForm;property PageContext: TIWPageContext40;        //该对象有更多页面相关的操作; only readproperty ContainerContext: TIWContainerContext //该对象有更多容器相关的操作property JavaScriptOnce: string //只执行一次的 js 代码property CacheFiles: TStrings   //缓存文件列表; only read



TIWBaseHTMLForm 所在单元及继承链:
IWBaseHTMLForm.TIWBaseHTMLForm < TIWBaseForm < TIWModuleDsn < TIWContainer < TIWBaseContainer < TScrollingWinControl < TWinControl < TControl < TComponent < TPersistent < TObject

主要成员:
property BGColor: TIWColor    //背景色        property LinkColor: TIWColor  //链接色        property TextColor: TIWColor  //普通文本色    property VLinkColor: TIWColor //访问过的链接色



TIWBaseForm 所在单元及继承链:
IWBaseForm.TIWBaseForm < TIWModuleDsn < TIWContainer < TIWBaseContainer < TScrollingWinControl < TWinControl < TControl < TComponent < TPersistent < TObject

主要成员:
property FormAction: string  //对应 Html Form 的 action 属性property Params: TStringList //参数列表, 有点类似 WebApplication.Request.ContentFields, 但后者更全; only readproperty Released: Boolean              //是否执行过 Release, 但执行过后很快就 Free 了, 这个属性没多少意义; only readproperty WebApplication: TIWApplication //only readproperty FormState: TIWFormState        //当前状态: fsUndefined, fsRendering, fsExecuting, fsCreating, fsCreated; only readproperty ExecCount: Cardinal            //命令执行次数; only readproperty AllowPageAccess: Boolean //好像也未使用property ConnectionMode: TIWConnectionMode //读取连接模式: cmAny, cmSecure, cmNonSecureproperty PreHeader: TStringList	    //插入到 Head 靠前的内容property ExtraHeader: TStringList   //插入到 Head 靠后的内容property ContentFiles: TStringList  //包含 js、css property HiddenFields: TStringList  //隐藏字段property Title: string		    //网页标题property PreventBackButton: Boolean //是否禁用后退按钮; 默认 Falseproperty OnAfterRender: TNotifyEvent //呈现后, 发生在 OnCreate > OnRender 之后property OnCreate: TNotifyEventproperty OnDestroy: TNotifyEventprocedure Hide //procedure Show //procedure Release //释放; 它会先把窗体添加到 WebApplicaiton 内部的列表(FReleasedForms)中, 同时 Hide 掉; 等新的 ActiveForm 就绪后再 Freeprocedure ReleaseAndRedirect(const aUrl: string) //释放并转向class function TextToHTMLStringLiteral(const AText: string): string; //在 Html 中有些字符需要转码, 用这个函数很方便


示例:
//待续...