我在 ScrollBox 中有 6 个 RichEdit 控件。它们需要从上到下按顺序向左对齐,但我需要宽度不固定,这样当文本长度超过 ScrollBox 宽度时,我可以使用滚动条滚动查看全文。
如果我设置:
RichEdit1.Align := alTop;
RichEdit2.Align := alTop;
RichEdit3.Align := alTop;
RichEdit4.Align := alTop;
RichEdit5.Align := alTop;
RichEdit6.Align := alTop;
它们完美对齐并在设计中保持固定,因此不会意外移动它们,但宽度是固定的。不好。
如果我手动对齐它们,那么单击它们时它们不会固定,并且可以移动,我需要一直重新排列。烦人。
图片显示在所有 RichEdit 的顶部,Align = alTop,宽度固定为 ScrollBox 宽度。 下面的示例是手动对齐所有 RichEdit,其宽度可以超出 ScrollBox 的宽度,但它们可以在设计中移动:
所以,我想让它们像 alTop 一样固定在左侧、顶部,但不固定宽度。我怎样才能实现这个目标?
最佳答案
在设计时使用Align = alTop
。然后,在运行时(例如,表单的OnCreate
)设置Align := alNone
,并根据需要更改宽度。
关于delphi - 如何在没有固定宽度的情况下左对齐和顶部对齐控件?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/38934765/