如何在没有固定宽度的情况下左右对齐控件？

Question

我在 ScrollBox 中有 6 个 RichEdit 控件。它们需要从上到下依次左对齐，但我需要宽度不固定，所以当文本长度超过 ScrollBox 宽度时，我可以使用滚动条滚动查看全文。

如果我设置：

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

它们完美对齐并在设计中保持固定，因此不会意外移动它们，但宽度固定。不好。

如果我手动对齐它们，那么点击它们时它们是不固定的，可以移动，我需要一直重新排列。烦人。

图片显示在所有带有 Align = alTop 且宽度固定为 ScrollBox 宽度的 RichEdits 顶部。 下面的例子是所有 RichEdits 的手动对齐，宽度可以超出 ScrollBox 的宽度，但它们可以在设计中移动：

所以，我想让它们像 alTop 一样固定在左侧，顶部，但不固定宽度。我怎样才能做到这一点？

Answer 1

在设计时使用Align = alTop。然后，在运行时（例如，OnCreate of form）设置Align := alNone，并根据需要更改宽度。

Answer 2

如果防止意外移动是您的目标，我看到了两种解决方案。

使用 Delphi 的“锁定控制”选项

Edit > Lock Controls，但这是一个临时解决方案，没有保存，关闭/重新打开时会再次禁用。

在面板内将它们全部对齐

然后将该面板设置为您需要的宽度。但是，这仍然不会阻止您意外移动面板 - 只是编辑控件。即使这样，您仍然可以重新排列对齐的控件 - 如果您不小心将一个控件拖到了其邻居的边缘之外。

这是一个示例 DFM 结构：

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 340
  ClientWidth = 392
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object ScrollBox1: TScrollBox
    Left = 24
    Top = 8
    Width = 329
    Height = 281
    TabOrder = 0
    object Panel1: TPanel
      Left = 3
      Top = 3
      Width = 500
      Height = 217
      TabOrder = 0
      object Edit1: TEdit
        Left = 1
        Top = 1
        Width = 498
        Height = 21
        Align = alTop
        TabOrder = 0
        Text = 'Edit1'
        ExplicitLeft = 40
        ExplicitTop = 48
        ExplicitWidth = 121
      end
      object Edit2: TEdit
        Left = 1
        Top = 22
        Width = 498
        Height = 21
        Align = alTop
        TabOrder = 1
        Text = 'Edit2'
        ExplicitLeft = 16
        ExplicitTop = 56
        ExplicitWidth = 121
      end
      object Edit3: TEdit
        Left = 1
        Top = 43
        Width = 498
        Height = 21
        Align = alTop
        TabOrder = 2
        Text = 'Edit3'
        ExplicitLeft = 40
        ExplicitTop = 96
        ExplicitWidth = 121
      end
      object Edit4: TEdit
        Left = 1
        Top = 64
        Width = 498
        Height = 21
        Align = alTop
        TabOrder = 3
        Text = 'Edit4'
        ExplicitLeft = 32
        ExplicitTop = 128
        ExplicitWidth = 121
      end
      object Edit5: TEdit
        Left = 1
        Top = 85
        Width = 498
        Height = 21
        Align = alTop
        TabOrder = 4
        Text = 'Edit5'
        ExplicitLeft = 56
        ExplicitTop = 160
        ExplicitWidth = 121
      end
      object Edit6: TEdit
        Left = 1
        Top = 106
        Width = 498
        Height = 21
        Align = alTop
        TabOrder = 5
        Text = 'Edit6'
        ExplicitLeft = 80
        ExplicitTop = 192
        ExplicitWidth = 121
      end
    end
  end
end

另一方面，这激发了我研究如何在 TControl 级别上实现 LockChildren 布尔属性，启用该属性后，您将无法移动或调整其子控件的大小。

---

实际上，我刚刚在 Delphi 中发现了一个带有“锁定控件”选项的明显错误。如果在表单上启用它，然后关闭并重新打开表单，控件将不再锁定。但同时，如果您转到“编辑”菜单，“锁定控件”选项会显示为好像它仍然处于启用状态（即使它不是）。我想我记得在 Delphi 7 中这个错误 waaaaaay，但我仍然在 Delphi 10 Seattle 上看到它。

编辑我发现 QC 报告仍然打开：

http://qc.embarcadero.com/wc/qcmain.aspx?d=82764