如何使用TControl.Align:= alCustom？

TControl.Align 属性是用于控制控件在父控件中的对齐方式的属性。其取值有：

• alNone：不进行对齐。
• alTop：顶部对齐。
• alBottom：底部对齐。
• alLeft：左对齐。
• alRight：右对齐。
• alCustom：自定义对齐。

当使用 alCustom 参数时，需要使用 TAlignLayout 类的 Create 方法创建一个自定义布局对象，并将该对象赋给 TControl 控件的 AlignLayout 属性。

具体实现步骤如下：

1. 创建一个 TAlignLayout 对象，并设置其 Align 属性为 alCustom。
2. 在 TAlignLayout 对象中创建一个 TLayout 对象，并将其赋给 TControl 控件的 AlignLayout 属性。
3. 设置 TLayout 对象的 Align 属性，以指定控件在父控件中的对齐方式。
4. 设置 TControl 控件的 Align 属性为 alCustom，以将其与 TAlignLayout 对象关联。

示例代码如下：

// 创建一个 TAlignLayout 对象
TAlignLayout *layout = new TAlignLayout;
layout->Align = alCustom;

// 在 TAlignLayout 对象中创建一个 TLayout 对象
TLayout *layout2 = new TLayout(layout);

// 将 TLayout 对象赋给 TControl 控件的 AlignLayout 属性
TControl *control = new TControl;
control->AlignLayout = layout2;

在上述示例中，我们首先创建了一个 TAlignLayout 对象，并将其赋给 TControl 控件的 AlignLayout 属性，以指定该控件的自定义对齐方式。然后，我们使用 TAlignLayout 对象的 Create 方法创建了一个 TLayout 对象，并将其赋给 TControl 控件的 AlignLayout 属性，以指定该控件的对齐方式。最后，我们将 TControl 控件添加到父控件中，以显示自定义对齐方式。

需要注意的是，使用 TControl.Align 属性需要手动添加控件到父控件中，因此需要将父控件添加到布局控件中。此外，使用 TControl.Align 属性需要对控件进行手动布局，因此需要使用 TLayout 对象进行布局操作。