delphi – 如何在没有固定宽度的情况下对齐左侧和顶部的控件？

发布时间：2020-12-15 09:07:26 所属栏目：大数据来源：网络整理

导读：我在ScrollBox中有6个RichEdit控件.它们需要从上到下按顺序对齐,但我需要宽度不固定,因此当文本长度超出ScrollBox宽度时,我可以使用滚动条滚动查看全文. 如果我设置： RichEdit1.Align := alTop;RichEdit2.Align := alTop;RichEdit3.Align := alTop;RichEdit

我在ScrollBox中有6个RichEdit控件.它们需要从上到下按顺序对齐,但我需要宽度不固定,因此当文本长度超出ScrollBox宽度时,我可以使用滚动条滚动查看全文.

如果我设置：

RichEdit1.Align := alTop;
RichEdit2.Align := alTop;
RichEdit3.Align := alTop;
RichEdit4.Align := alTop;
RichEdit5.Align := alTop;
RichEdit6.Align := alTop;

它们完美对齐并保持固定设计,因此无法意外移动它们,但宽度得到修复.不好.

如果我手动对齐它们,那么点击它们时它们就不会被修复并且可以移动,我需要一直重新安排.烦人.

图片显示在所有RichEdits上,Align = alTop和宽度固定为ScrollBox宽度.
下面的示例是手动对齐所有RichEdits,宽度可以超出ScrollBox的宽度,但它们可以在设计中移动：

enter image description here

所以,我想把它们固定在左边,顶部和alTop一样,但不要修复宽度.我怎样才能做到这一点？

解决方法

在设计时使用Align = alTop.然后,在运行时(例如,形式的OnCreate)设置Align：= alNone,并根据需要更改宽度.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!