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

我在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,并根据需要更改宽度.