使用 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;
