使用 IntraWeb (15)

TIWEdit //单行文本框, 通过 PasswordPrompt 属性可以作为密码框
TIWMemo //多行文本框
TIWText //相当于多行的 TIWLabel 或不能编辑的 TIWMemo

---

TIWEdit 所在单元及继承链:
IWCompEdit.TIWEdit < TIWCustomEdit < TIWCustomControl < TIWBaseHTMLControl < TIWBaseControl < TIWVCLBaseControl < TControl < TComponent < TPersistent < TObject

主要成员:

---

property Text: TCaption          //文本
property PasswordPrompt: Boolean //是否以 * 代替文本; 以做密码字段
property Alignment: TAlignment   //对齐方式
property BGColor: TIWColor       //背景色
property FocusColor: TIWColor    //获取焦点时的背景色
property DoSubmitValidation: Boolean //在提交时是否执行验证
property Editable: Boolean           //能否编辑
property NonEditableAsLabel: Boolean //= True, 且 Editable = False 时, 将以 IWLabel 呈现
property MaxLength: Integer  //最大长度
property ReadOnly: Boolean   //是否是只读
property Required: Boolean   //是否是必填字段

property OnSubmit: TNotifyEvent       //在其获取焦点后, 按 Enter 将引发 OnSubmit; 如果没有使用该事件, 将调用当前窗体的 OnDefaultAction 事件.
property OnAsyncChange: TIWAsyncEvent //

procedure Clear //清空

---

TIWMemo 所在单元及继承链:
IWCompMemo.TIWMemo < TIWCustomMemo < TIWCustomControl < TIWBaseHTMLControl < TIWBaseControl < TIWVCLBaseControl < TControl < TComponent < TPersistent < TObject

主要成员:

---

property Lines: TStringList //
property Text: TCaption     //
property BGColor: TIWColor  //
property Editable: Boolean  //
property InvisibleBorder: Boolean //是否隐藏边框
property HorizScrollBar: Boolean  //是否显示横向滚动条
property VertScrollBar: Boolean   //是否显示纵向滚动条
property Required: Boolean        //

property OnAsyncChange: TIWAsyncEvent  //

procedure Clear //

---

TIWText 所在单元及继承链:
IWCompText.TIWText < TIWCustomText < TIWCustomControl < TIWBaseHTMLControl < TIWBaseControl < TIWVCLBaseControl < TControl < TComponent < TPersistent < TObject

主要成员:

---

property BGColor: TIWColor      //
property ConvertSpaces: Boolean //是否转换连续的空格; 如果不转换连续的空格将只呈现为一个空格, 默认 False
property Lines: TStringList     //
property RawText: Boolean       //有这个属性的控件还有: TIWLabel、TIWLink、TIWUrl, 但它在 TIWText 在应该最常用
property UseFrame: Boolean      //是否使用框架
property WantReturns: Boolean   //是否将将换行符识别为 <br>, 默认是 True
property Text: TCaption         //

procedure Clear  //

---

RawText 属性测试:

---

procedure TIWForm1.IWAppFormCreate(Sender: TObject);
begin
  IWText1.Clear;
  IWText1.RawText := True;
  with IWText1.Lines do begin
    Add('<table border="1" rules="all" width="100%">');
    Add('<tr><td>111</td><td>222</td></tr>');
    Add('<tr><td>333</td><td>444</td></tr>');
    Add('</table>');
  end;
end;

---