• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

关于DELPHI的布局

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

以下文章载自:【巴蛮子的破新茅屋】http://blog.csdn.net/bamanzi/archive/2006/02/11/596962.aspx

Windows编程的习惯是直接指定控件的座标和大小,而UNIX下面的习惯是在容器里面堆放,用不同的layout manager来控制布局(java,wx等也是这种思想)。这也是为什么Windows程序的对话框一般都不让改变大小(因为这意味着要自己写很多代码逐步调整子控件的位置),而UNIX下一般都可以。Delphi程序原来有Align属性来控制控件对那边靠拢。但如果想要一个控件固定离左边、右边有多远,得用D6开始提供Anchors属性。

所以DELPHI提供3种布局属性:Align, Anchor,和 Constraint。基本能满足布局设计的需要。

这样还是不够的,比如有七八个按钮顺排或者表格式布局,这在D2006里面可以用新增的TFlowPanel和TGridPanel来实现。

 

TFlowPanel和TGridPanel的使用方法:

http://edn.embarcadero.com/article/33421

呵呵,没找到中文说明的,只能看看E文了。里面的DEMO无法DOWN。

其中有一个事情要注意:任何一个控件被放到这两个布局上后,无法调整位置,DELPHI提供了一种方法,就是选择要调整的控件,在属性窗体的最下面会出现和布局有关的属性,进行调整就可以了。TFlowPanel有ControlIndex。TGridPanel有column,row,columnspan,rowspan。

   

评价

DELPHI提供的GridPanel貌似很好,但是使用起来实在不方便。我自己用GridPanel准备画一个人口信息的输入界面,结果画了一会就觉得烦了,根本没办法用。考虑再三,还是自己写一个。

至少提供如下功能:

1.能够在设计状态用鼠标调整行的行的宽度和列的高度。

2.panel的宽度和高度应该随着里面行和列的高度和宽度的变化而变化。而不应该是像GridPanel,宽度和高度不边,而让行和列的值来适应GridPanel。

3.能方便的增加和删除行和列。

4.放入pane中的控件的宽度要随着所在格子的宽度变化而变化。

开发思路:

1.从TCustomGridPanel继承。

2.在设计状态当鼠标移动到网格线上的时候,Cursor变成可crHSplit和crVSplit,(可以通过继承WMSetCursor来实现)

3.设计状态,当在网按住鼠标并移动的时候,修改对应的格子的大小(可以通过继承WMLButtonDown,WMLButtonUp,和WMMouseMove来实现)

4.当Panel上放入一个控件的时候,自动设置到对应格子的宽度(可以通过继承AlignControls来实现)。

5.增加RowCount和ColumnCount属性,可以通过设置这两个属性来设置行和列的总数。

效果:

   

 

 

可惜,这个GIF无法显示鼠标移动到网格中的时候改变鼠标形状的情况。

DELPHI问题

在写这个panel的时候发现一个问题,可能是DELPHI的BUG

ExtCtrls单元第3500行,procedure TCustomGridPanel.AlignControls(AControl: TControl; var Rect: TRect);方法中,代码如下:

AnchorSubset := AControl.Anchors * [akLeft, akRight];

if AnchorSubset = [akLeft] then

NewBounds.Left := CellRect.Left

else if AnchorSubset = [akRight] then

NewBounds.Left := Max(CellRect.Left, CellRect.Right - AControl.Margins.ExplicitWidth)

else

NewBounds.Left := Max(CellRect.Left, CellRect.Left + ((CellRect.Right - CellRect.Left) - AControl.Margins.ControlWidth) div 2);

这个应该是一个明显的BUG,如果Control的Anchors同时设置了akLeft和akRight,则系统就不再处理,也就是前面提到的如果用GridPanel,放到PANEL上的控件无法根据格子的宽度自动调整宽度。

修复方法:增加一个判断就可以:

AnchorSubset := AControl.Anchors * [akLeft, akRight];

//hl add 20090415原来控件没有提供对 Anchors = akLeft, akRight的处理

if AnchorSubset = [akLeft, akRight] then

begin

NewBounds.Left := CellRect.Left;

NewBounds.Right := CellRect.Right;

end

else begin

if AnchorSubset = [akLeft] then

NewBounds.Left := CellRect.Left

else if AnchorSubset = [akRight] then

NewBounds.Left := Max(CellRect.Left, CellRect.Right - AControl.Margins.ExplicitWidth)

else

NewBounds.Left := Max(CellRect.Left, CellRect.Left + ((CellRect.Right - CellRect.Left) - AControl.Margins.ControlWidth) div 2);

NewBounds.Right := NewBounds.Left + Min(CellRect.Right - CellRect.Left, AControl.Margins.ExplicitWidth);

end;


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
Delphi窗体函数GetWindowText-获取窗口的标题发布时间:2022-07-18
下一篇:
Delphi获取网卡地址发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap