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

---