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

标签 delphi alignment controls delphi-10.1-berlin

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

enter image description here

所以,我想让它们像 alTop 一样固定在左侧、顶部,但不固定宽度。我怎样才能实现这个目标?

最佳答案

在设计时使用Align = alTop。然后,在运行时(例如,表单的OnCreate)设置Align := alNone,并根据需要更改宽度。

关于delphi - 如何在没有固定宽度的情况下左对齐和顶部对齐控件?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/38934765/

相关文章:

html - 从底部到顶部堆叠 Div

c# - 遍历子控件时避免无限循环

delphi - TStringList - 奇怪的行为

html - 如何在我的导航栏中使用 CSS 对齐我的 Logo ?

html - 无法在页脚上方居中显示联系信息

c# - 我的控件使用的工具箱中的 "hide"控件如何使用?

c# - 在 WPF 中向鼠标方向旋转图形(如模拟表盘)

delphi - 我可以与 Free Pascal 交叉编译(不链接)其他平台吗?

delphi - 将 IDropTarget.Drop 方法中获取的 IDataObject 转换为 Outlook 消息并将其保存在磁盘上

delphi - 如何告诉 Delphi 在 DXS 中使用本地项目的 Security.pas 文件而不是 Winapi.Security.pas?