使用 IntraWeb (15) - 基本控件之 TIWEdit、TIWMemo、TIWText

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;

---