delphi - 显示时自动对齐表单

Question

我有 4 个四边形，当 form1 显示（）时，它会调用以显示其他 3 个。我怎样才能使它在显示其他形式时自动与第一个形式对齐？

-Form 1 shows
-Need form2 to attach it to the left of form 1
-Need form3 to attach it to the bottom of form 1
-Need form4 to attach it to the right of form 1

所以它看起来像一个有 4 个不同部分的表格。原因是我希望中心表单（表单 1）运行 openGL，其他 3 个表单用于控件

Answer 1

如果您真的需要这样的功能，那么我建议您使用JVCL（JEDI 可视TJvFormMagnet化组件库）的组件。

否则，您可以在 MainForm 移动或调整大小时通过 WndProc 方法捕获适当的消息来简单地计算侧窗体的 ClientRect 和位置。