如何平铺MDI子项并维护BorderStyle = bsNone？

Question

我希望有人可以提供帮助

我创建了一个有表单的对象。我在运行时实例化这个对象。然后，用户可以通过菜单步骤实例化第二（或多个）对象。因此，父表单中现在存在两个子表单。在运行时创建表单期间，每个对象形式的BorderStyle都设置为none，Style设置为MDIChild：

BorderStyle := bsNone;
FormStyle := fsMDIChild;

一切都很好。表格没有边框。

现在我想要平铺创建的两个表单。菜单＆gt;点击平铺

procedure TMainForm.Tile1Click(Sender: TObject);
begin
     Tile;
end;

现在边界重新出现。 我需要一种摆脱边界的方法。

我尝试单步执行对象集合并将BorderStyle显式设置为none：

procedure TMainForm.Tile1Click(Sender: TObject);
var
i: byte;
begin
    Tile;
    for i := 0 to GraphCollection.Count-1 do
        (GraphCollection.Items[i] as TGraphForm).BorderStyle := bsNone;
end;

这不起作用。

有没有人在Tile或Cascade之后有一个保留bsNone样式的解决方法。