使用 IntraWeb (4) - 页面布局之 TIWRegion
浏览数：27 /
时间：2015年06月09日
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;
效果图:
郑重声明：本站内容如果来自互联网及其他传播媒体，其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享，并不代表本站赞同其观点和对其真实性负责，也不构成任何其他建议。
