使用 IntraWeb (4)

来源:转载


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



在空白窗体上添加 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;



效果图:





分享给朋友:
您可能感兴趣的文章:
随机阅读: