显示时自动对齐表单

时间:2013-07-22 05:57:46

标签: delphi delphi-xe2

我有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表单用于控件

1 个答案:

答案 0 :(得分:1)

如果您真的需要这样的功能,那么我建议使用TJvFormMagnet(JEDI Visual Component Library)的JVCL组件。

否则您只需计算ClientRect&每当MainForm移动或调整大小时,通过WndProc方法捕获相应的消息,形成一侧的位置。