为什么SendToBack不使用Delphi XE4

我正在使用DelphiXe4，试图创建第二个表单，并将其设置为背景，而第一个表单是透明的（AlphaBlend=true；AlphaBlendValue=220）

上面的代码使用Delphi7，但不使用Delphi XE4（Form2仍然在Form1上）。有人能告诉我为什么代码不能与XE4一起工作吗？如何让它工作

---

提前感谢。

检查Form2属性的设置。它的设置方式可能会导致Form1的窗口成为Form2窗口的父窗口，从而防止Form2移到Form1之后。D7中不存在（and）属性，它在更高版本中引入，以解决VCL在早期版本中遇到的z顺序错误

有关更多详细信息，请阅读以下blob文章：

---

Form2.PopoupParent属性默认为nil（空），我没有对其进行更改。如果我将Form1.PoupParent设置为Form2，则SendToBack正在工作（Form2发送回Form1），但当我关闭应用程序时出错。使用单元2；程序TForm1.按钮1单击（发送方：TObject）；开始形式2.表演；POUPPARENT:=表格2；表2.2.SendToBack；结束；我已尝试将POUPPARENT设置为NIL onClose Form1事件，但错误仍然发生。过程TForm1.FormClose（发送方：TObject；var操作：TCloseAction）；begin POUPPARENT:=nil；结束；对不起，我指的是PopupMode，不是PopupParent（尽管它们是相关的）。不要将Form2设置为Form1的POUPPERNT。尝试将Form2的PopupMode设置为explicit，将其PopupParent设置为nil。保留默认值允许VCL决定在显示Form2时使用哪个PopupParent，而该PopupParent通常是活动表单（本例中为Form1）。

    uses Unit2;

    procedure TForm1.Button1Click(Sender: TObject);
    begin
      Form2.Show;
      Form2.SendToBack;
    end;