VCL中两个Form之间的平滑过渡

Question

我已经玩了几个小时了，但我无法让它工作。我有一个由两个表格组成的应用程序，我想从一个表格切换到另一个表格。我希望这个开关“平滑”（即混合效果）。

我想出了这个部分可行的解决方案：在 ShowForm() 方法中使用 AnimateWindow 函数。当我从 Form1 切换到 Form2 时，这工作正常。但是切换回 Form1 不起作用。 Form1 被绘制在 Form2 的“后面”，当 Form2 隐藏时，过渡已经完成。

下面是Form1的非常简单的代码：

#include <vcl.h>
#pragma hdrstop

#include "main_form.h"
#include "child_form.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Form2 -> Show();
    Form1 -> Hide();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
    const int speed = 1000;
    AnimateWindow(Handle, speed, AW_BLEND);
}

这里是Form2的代码：

#include <vcl.h>
#pragma hdrstop

#include "child_form.h"
#include "main_form.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
    Form1 -> Show();
    Form2 -> Hide();

}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormShow(TObject *Sender)
{
    const int speed = 1000;
    AnimateWindow(Handle, speed, AW_BLEND);
}

我试图在 Form2 的代码中反转 Form1->Show() 和 Form2->Hide()statements，以在绘制 Form1 之前强制隐藏 Form2，但它也不起作用：Form2 被隐藏，然后在动画期间什么都不显示，并且然后突然显示Form1。

有什么想法吗？

谢谢。

Answer 1

根据您的要求，这是我对这个主题的看法，但是，由于我对 C++Builder 不满意，在 Delphi 的 pascal 中。

您所描述的问题（行为差异取决于是否将Form1 或Form2 置于前面）是由于Form1 是主要形式。如果两个表单都不是主表单，则问题不存在。

如果一个表单是主表单，如果您使用AlphaBlendValue 同时更改两个表单的可见性，则问题不太明显，即提高要显示的表单的值并减小另一个表单的值.由于这两种形式都是部分可见的，因此它们的 z 顺序并不像您只更改其中一种形式那样明显。

从一个包含两个表单（我的代码中的 TForm25 和 TForm26）的项目开始。

TForm25
  property AlphaBlend = True
  property AlphaBlendValue = 255
  property Visible = True

TForm26
  property AlphaBlend = True
  property AlphaBlendValue = 0
  property Visible = True

在两个表单都可以访问的地方添加以下代码。

procedure FadeOutIn(FOut, FIn: TForm);
var
  i: integer;
begin
  FIn.BringToFront;
  for i := 1 to 255 do
  begin
    FOut.AlphaBlendValue := 255-i;
    FIn.AlphaBlendValue := i;
    sleep(1); // use 20 for a really slow transition, just to demonstrate
              // or remove if not needed
  end;
end;

在我的测试中，这两种形式都是自动创建的，Visible = True 是自动创建的，但 Form26 不可见，因为它的 AlphaBlendValue = 0。每个表单都有一个按钮来调用FadeOutIn() 以淡出（隐藏）它自己并淡入（显示）另一个表单。

procedure TForm25.Button1Click(Sender: TObject);
begin
  FadeOutIn(Form25, Form26);
end;

procedure TForm26.Button1Click(Sender: TObject);
begin
  FadeOutIn(Form26, Form25);
end;

警告： - 由于两种形式同时是半透明的，所以在过渡过程中，任何隐藏的东西也会显示出来。

Answer 2

按照@TomBrunberg 的建议，这是一个可能的解决方案。这里的主要问题是其中一个 Form 是 MainForm ，它始终位于另一个之后。为了避免这种情况，可以创建第三个空白表格并将其声明为主要表格。此表单Visibleproperty 设置为False。第三种形式的代码如下：

#include <vcl.h>
#pragma hdrstop

#include "background.h"
#include "main_form.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
    : TForm(Owner)
{

}
//---------------------------------------------------------------------------

void __fastcall TForm3::FormShow(TObject *Sender)
{
     Form1->Show();
}
//---------------------------------------------------------------------------

另外两个Form中的代码被修改，使得Hide()方法在Show()之前被调用，如下所示。 表格1：

#include <vcl.h>
#pragma hdrstop

#include "main_form.h"
#include "child_form.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Form1 -> Visible = false;
    Form2 -> Visible = true;
}

void __fastcall TForm1::FormShow(TObject *Sender)
{
    int const sleep = 500;
    AnimateWindow(Handle, sleep, AW_BLEND);
}

和表格 2

#include <vcl.h>
#pragma hdrstop

#include "child_form.h"
#include "main_form.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
    Form2 -> Visible = false;
    Form1 -> Visible = true;
}
//---------------------------------------------------------------------------

void __fastcall TForm2::FormShow(TObject *Sender)
{
    int const sleep = 500;
    AnimateWindow(Handle, sleep, AW_BLEND);
}

这只是部分工作：在第一次启动时，显示 Form1，没有过渡效果，但不是很重要。但是当第一次调用Form2时，转场效果也不起作用，并且在转场效果期间可以看到空白的Form3。之后，它就可以工作了，两个表单都可以显示过渡效果。