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;

---

?

轉載于:https://www.cnblogs.com/martian6125/p/9630982.html

總結

以上是生活随笔為你收集整理的使用 IntraWeb (13) - 基本控件之 TIWLabel、TIWLink、TIWURL、TIWURLWindow的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。