如何控制Panel控件中加载的TFORM类型的多个子控件窗体(非MDI)的布局?

[zhangjun025]

我在主窗体MainForm中新建了一个名字叫Panel1的Panel控件，
然后有新建N个窗体,
这些窗体的父控件都是Panel1
Form1.Parent=Panel1;
Form2.Parent=Panel1;
......
FormN.Parent=Panel1;

再加一个BUTTON按钮，
触发Button ONCLICK事件后，
把Panel1中显示的窗体(FormN.show)能够进行层叠/平铺;

[konhon]

主窗体上放一个Action 加入New Standard Action 选择
TileHorizontally和TileVertically和Cascade 不用写任何代码就可完成。

[zhangjun025]

加ACTIONLIST里的New Standard Action只能自动排主窗体的MDI窗体吧,
我用的不是MDI窗体

[sweetgun]

自己计算就行了。
你可以把form放在一个列表里面，比如层叠的实现：

iTop := 0;
iLeft := 0;
iWidth := 200;
iHeight := 160;

for i:= 0 to FormList.Count - 1 do
begin
TForm(ForList[i]).SetBounds(iTop, iLeft, iWidth, iheight);
inc(iTop, 20);
inc(iLeft, 20);
end;

[xiaoqiang123]

在DELPHI中的DEMO中有个例子，我以前见这，D5开发指南也有，你找找，在第4章吧

[jxc163]

D5开发指南里有例子