首页 > 代码库 > 使用 IntraWeb (4) - 页面布局之 TIWRegion
使用 IntraWeb (4) - 页面布局之 TIWRegion
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;
效果图:
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。