当我的表单显示时，Windows Vista 和 7 运动效果仅应用一次。为什么？

Question

我创建了一个包含两种表单的应用程序。第一个是主要形式，第二个是隐藏形式。 我在 Form1 上放置了一个按钮，并将其设为 ShowModal 作为第二个窗体。在 Win7 上，窗体会显示动画。然后我关闭出现的表单（Form2）并再次单击该按钮。 Form2 出现时没有动画。我每次都想要动画。我应该怎么办？

Answer 1

我现在唯一能想到的就是每次要以模态方式显示表单时手动创建表单。为此，请转到项目选项并确保不会自动创建表单。然后做

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TForm2.Create(self) do
    try
      ShowModal;
    finally
      Free;
    end;
end;

在我看来，大多数情况下模态表单实际上应该手动创建。

Answer 2

好吧，你可以选择不担心它！或者，一个非常快速的技巧是在每次关闭时释放表单，因为动画似乎仅在第一次显示表单时运行。

编辑：另一种方法是在表单关闭时调用 DestroyHandle。我现在猜测，但我想象 Windows 在窗口中的某个位置记录了一个标志，表明动画已显示。一旦设置了该标志，动画就不会再显示。

Answer 3

作为一种替代方法，可以通过发送表单样式已更改的通知来欺骗窗口，这将使窗口重置当前表单句柄的“秘密标志”。因此，在显示已创建的表单时，将再次应用很酷的显示效果动画。但是，我不能说这样做会造成什么负面影响。

uses
  Winapi.Windows, Vcl.Controls;

type
  TFormHelper = class helper for TForm
  public
    procedure Show;
  end;

implementation

procedure TFormHelper.Show;
begin
  SendMessage(Handle,CM_CUSTOMSTYLECHANGED,0,0);
  inherited Show;
end;

注意：具有类帮助器的代码，此功能/关键字可能在较旧的 IDE 中不可用。