使用 IntraWeb (13) - 基本控件之 TIWLabel、TIWLink、TIWURL、TIWURLWindow

TIWLabel    // TIWLink      //內部連接 TIWURL      //外部連接 TIWURLWindow //頁內框架, 就是 <iframe></iframe>

---

TIWLabel 所在單元及繼承鏈:
IWCompLabel.TIWLabel < TIWCustomLabel < TIWCustomControl < TIWBaseHTMLControl < TIWBaseControl < TIWVCLBaseControl < TControl < TComponent < TPersistent < TObject

主要成員:

---

property AutoSize: Boolean      //自動大小 property Caption: TCaption      //使用 Text 也行 property RawText: Boolean        //= True 時, 會把 Caption 當作 Html 源代碼 property ConvertSpaces: Boolean  //是否轉換空格; 若是 False, 連續的空格只能被識別爲一個 property NoWrap: Boolean        // = False 且 ConvertSpaces = False 且 AutoSize = False 時, 可換行 property ForControl: TIWCustomControl  //指定它是哪一個控件的標籤; 指定後, 點擊該 Label 會激活指定的控件

---

RawText 屬性測試:

---

procedure TIWForm1.IWAppFormCreate(Sender: TObject); begin   IWLabel1.RawText := True;   IWLabel1.Caption := '<a href="http://del.cnblogs.com">萬一的 Delphi 博客</a>'; end;

---

TIWLink 所在單元及繼承鏈:
IWHTMLControls.TIWLink < TIWLinkBase < TIWCustomControl < TIWBaseHTMLControl < TIWBaseControl < TIWVCLBaseControl < TControl < TComponent < TPersistent < TObject

主要成員:

---

property Confirmation: string  // property DoSubmitValidation: Boolean  // property RawText: Boolean  // property Caption: TCaption  // property RawText: Boolean  // property OnClick: TNotifyEvent  //

---

TIWLink 示例:

---

uses Unit2; procedure TIWForm1.IWLink1Click(Sender: TObject); begin   TIWForm2.Create(WebApplication).Show; end;

---

TIWURL 所在單元及繼承鏈:
IWHTMLControls.TIWURL < TIWLinkBase < TIWCustomControl < TIWBaseHTMLControl < TIWBaseControl < TIWVCLBaseControl < TControl < TComponent < TPersistent < TObject

主要成員:

---

property TargetOptions: TIWURLTarget //目標窗口選項 property TerminateApp: Boolean //跳轉時, 是否同時終止應用 property URL: string        //跳轉地址 property UseTarget: Boolean  //是否使用目標窗口 property RawText: Boolean    // property Caption: TCaption  //   TIWURLTarget 類的成員:   property Left: Integer   property Top: Integer   property Width: Integer   property Height: Integer   property WindowName: string   property AddressBar: Boolean   property Menu: Boolean   property Resizable: Boolean   property Scrollbars: Boolean   property Toolbar: Boolean   property Mode: TIWURLTargetMode //TIWURLTargetMode = (tmBlank, tmNewWindow, tmParent, tmSelf, tmTop)   function GetModeString(AMode: IWHTMLControls.TIWURLTargetMode): string

---

TIWURL 示例:

---

{在新標籤頁打開} procedure TIWForm1.IWAppFormCreate(Sender: TObject); begin   IWURL1.URL := 'http://www.cnblogs.com/del'; end; {在新窗口打開} procedure TIWForm1.IWAppFormCreate(Sender: TObject); begin   IWURL1.URL := 'http://www.cnblogs.com/del';   IWURL1.UseTarget := True;   IWURL1.TargetOptions.Top := 0;   IWURL1.TargetOptions.Left := 0; end; {在當前頁打開} procedure TIWForm1.IWAppFormCreate(Sender: TObject); begin   IWURL1.URL := 'http://www.cnblogs.com/del';   IWURL1.UseTarget := True;   IWURL1.TargetOptions.Mode := tmSelf; end;

---

TIWURLWindow 所在單元及繼承鏈:
IWHTMLControls.TIWURLWindow < TIWCustomControl < TIWBaseHTMLControl < TIWBaseControl < TIWVCLBaseControl < TControl < TComponent < TPersistent < TObject

主要成員:

---

property URI: string  //地址 property Border: Boolean  //使用要邊框 property Scrolling: TIWURLWindowScrolling //是否顯示滾動條: usYes、usNo、usAuto

---

TIWLink 示例:

---

procedure TIWForm1.IWAppFormCreate(Sender: TObject); begin   IWURLWindow1.URI := 'http://del.cnblogs.com';   IWURLWindow1.Border := True;   IWURLWindow1.Align := alLeft; end;