使用 IntraWeb (4) - 页面布局之 TIWRegion
使用 IntraWeb (4) - 页面布局之 TIWRegion
涂孟超 发表于3年前
使用 IntraWeb (4) - 页面布局之 TIWRegion
  • 发表于 3年前
  • 阅读 4
  • 收藏 0
  • 点赞 0
  • 评论 0

腾讯云 十分钟定制你的第一个小程序>>>   


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;


效果图:


共有 人打赏支持
粉丝 13
博文 2004
码字总数 14107
×
涂孟超
如果觉得我的文章对您有用,请随意打赏。您的支持将鼓励我继续创作!
* 金额(元)
¥1 ¥5 ¥10 ¥20 其他金额
打赏人
留言
* 支付类型
微信扫码支付
打赏金额:
已支付成功
打赏金额: