使用 IntraWeb (4)

TIWRegion 是容器, 首先布局好它(們).

uses System.UITypes; //為使用 Anchors 屬性

{下面代碼中的設置大都可以在設計時完成}
procedure TIWForm1.IWAppFormCreate(Sender: TObject);
begin
  {把其它 3 個 IWRegion 都放在 IWRegion1 內}
  IWRegion2.Parent := IWRegion1;
  IWRegion3.Parent := IWRegion1;
  IWRegion4.Parent := IWRegion1;

  {設置 IWRegion1 的大小與位置}
  IWRegion1.Width := 600;
  IWRegion1.Height := Self.Height;
  IWRegion1.Top := 0;
  IWRegion1.Left := (ClientWidth - IWRegion1.Width) div 2;
  IWRegion1.Anchors := [akTop, akBottom]; //這是關鍵設置, 其實是 VCL 的老東西, 但對網頁更重要一些

  {設置其它 3 個 IWRegion 的位置、大小與顏色}
  IWRegion2.Align := alTop;
  IWRegion3.Align := alLeft;
  IWRegion4.Align := alClient;

  IWRegion2.Height := 80;
  IWRegion3.Width := 120;

  IWRegion2.Color := clWebRED;
  IWRegion3.Color := clWebGOLD;
  IWRegion4.Color := clWebYELLOW;

  {讓 IWRegion2 與 IWRegion3 之間有可以動態調整的分割線}
  IWRegion3.Splitter := True;
end;