如何在不设定控件固定宽度的情况下实现Delphi中左右和顶部控件的自动对齐？

本文共计339个文字，预计阅读时间需要2分钟。

在ScrollBox中，我有一个RichEdit控件。它需要从上到下按顺序对齐，但宽度不固定。因为文本长度可能会超过ScrollBox的宽度，所以我可以滚动查看全文。如果设置：RichEdit1.Align=alTop

我在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的宽度,但它们可以在设计中移动：

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

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