使用 IntraWeb (11) - 基本控件之 TIWButton

所在单元及继承链:
IWCompButton.TIWButton < TIWCustomControl < TIWBaseHTMLControl < TIWBaseControl < TIWVCLBaseControl < TControl < TComponent < TPersistent < TObject

主要成员:

property ButtonType: TIWButtonType  //!, 示例中详述property HotKey: string             //热键; 譬如: HotKey = 'j', 那么热键就是: Alt+Jproperty Confirmation: string       //指定此信息后, 将弹出问询窗; 只有确认后才会执行 OnClick; 这非常方便, 也很有创意property DoSubmitValidation: Boolean  //是否在提交时验证其他...property ExtraTagParams: TStringList  //添加 Html Tag; 不要用于修改 Html Tagproperty FriendlyName: string         //呈现给用户的名称property ScriptEvents: TIWScriptEvents  //客户端的 js 事件脚本property WebColor: TIWColor           //没看出和 Color 的区别property WebFont: TIWFont             //没看出和 Font 的区别property Css: string     //引用在样式表中定义的类; 譬如在样式表定义有 .MyClass1, 这里就可以设置 Css := 'MyClass1';property StyleRenderOptions: TIWStyleRenderOptions  //指定哪些类别的样式设置可用于最终的呈现; 因为一些属性可能会和样式表有冲突property Caption: TCaption  //标题property Text: TCaption     //在该控件中, Text 和 Caption 没有区别property DoRefreshControl: Boolean //它默认是 False, 但在修改某些属性时必须让它为 True 才会有效property OnClick: TNotifyEvent        //与 ScriptEvents 中的 onclick 不同, 这会使整个页面提交, 就像 Submit 按钮一样property OnAsyncClick: TIWAsyncEvent  //异步 Click; 难得见到这么简单的 AJAX 的实现property OnHTMLTag: TIWOnHTMLTag      //事件发生在呈现 Html Tag 时; 可借机修改那些 Tagfunction RenderHTML(AContext: TIWCompContext): TIWHTMLTag  //类似的还有 RenderStyle 等, 这应该是在继承控件时使用的; 现在可以使用 OnHTMLTagfunction GetSubmitParam: string   //?function OwnerForm: TIWBaseForm   //所属窗体; 譬如获取 IWButton1.OwnerForm.Name 的结果是 IWForm1

ButtonType 属性:

//在 Html 中的按钮有三种 Type: button、 submit、 reset, 分别表示: 一般按钮、提交按钮、重置按钮//该属性的本意就是这个, 但现在它不起作用//它默认是 button, 是否是指定为 submit 也不重要, TIWButton.OnClick 会自动提交; 但 reset 还是有用的//在作者没有修正前, 可以先通过它的 OnHTMLTag 事件设置:procedure TIWForm1.IWButton1HTMLTag(ASender: TObject; ATag: TIWHTMLTag); //可能需手动 uses IWHTMLTagbegin  ATag.Params.Values['type'] := 'reset';end;{能接受重置的其他输入控件必须和重置按钮在同一 Region 内, 或都不在 Region 内}

DoSubmitValidation、FriendlyName 属性:

//在空窗体上放 IWEdit1、IWButton1, 写代码如下:procedure TIWForm1.IWAppFormCreate(Sender: TObject);begin  IWEdit1.Required := True;          //指定为必填字段  IWEdit1.FriendlyName := '姓名字段'; //在验证提示时将使用这个名称//  IWButton1.DoSubmitValidation := False; //TIWButton.DoSubmitValidation 默认是 True; 如果指定为 False, 就不会执行验证了end;procedure TIWForm1.IWButton1Click(Sender: TObject);begin//只是测试提交, 这里不需要有代码end;//测试: 运行后, 清空 IWEdit1, 点击按钮, 将会弹出验证提示.

ExtraTagParams 属性:

procedure TIWForm1.IWAppFormCreate(Sender: TObject);begin  IWButton1.ExtraTagParams.Add('style = color: red');end;

Css 属性:

procedure TIWForm1.IWAppFormCreate(Sender: TObject);begin  Extr�ݷ�����,�������aHeader.Add('');  IWButton1.Css := 'MyClass1';end;