Delphi VCL Metro应用最小化恢复时显示错误窗体问题

这个问题我之前在Delphi 10.x版本的VCL Metro应用里也碰到过，核心原因是系统没有正确记录最后激活的窗体，导致恢复时回退到了更早打开的Form2。下面给你两种可行的解决方案：

方案1：显示窗体时显式激活（快速修复） #

你当前的代码只调用了BringToFront，这个方法只是把窗体放到Z-order的最上层，但并没有让它成为系统认可的活动窗体。Windows在应用恢复时，会优先激活最后一个被标记为活动的窗体，所以我们只需要在显示每个子窗体时添加Activate调用即可：

修改Form1的按钮点击事件：

procedure TForm1.Button2Click(Sender: TObject);
begin
  if not Assigned(form2) then form2:=tform2.Create(self);
  form2.Show;
  form2.BringToFront;
  form2.Activate; // 新增：将Form2设置为活动窗体
end;

修改Form2的按钮点击事件：

procedure TForm2.Button2Click(Sender: TObject);
begin
  if not Assigned(form3) then form3:=tform3.Create(self);
  form3.Show;
  form3.BringToFront;
  form3.Activate; // 新增：将Form3设置为活动窗体
end;

这样修改后，每次打开新窗体时都会让它成为当前活动窗体，系统会记住这个状态，恢复时就会自动显示Form3了。

方案2：跟踪最后活动窗体（更可靠的通用方案） #

如果你的应用后续可能有更多窗体，或者需要更精准地控制恢复时的显示，建议手动跟踪最后激活的窗体，然后在应用恢复时主动激活它：

步骤1：定义全局变量记录最后活动窗体 #

在主窗体的单元顶部添加全局变量：

var
  LastActiveForm: TForm;

步骤2：在每个窗体的OnActivate事件中更新变量 #

给Form1、Form2、Form3都添加OnActivate事件处理：

// Form1的OnActivate
procedure TForm1.FormActivate(Sender: TObject);
begin
  LastActiveForm := Self;
end;

// Form2的OnActivate
procedure TForm2.FormActivate(Sender: TObject);
begin
  LastActiveForm := Self;
end;

// Form3的OnActivate
procedure TForm3.FormActivate(Sender: TObject);
begin
  LastActiveForm := Self;
end;

步骤3：在主窗体中处理应用激活消息 #

在主窗体的类声明中添加消息处理声明：

type
  TForm1 = class(TForm)
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    procedure WMActivateApp(var Message: TWMActivateApp); message WM_ACTIVATEAPP;
  public
    { Public declarations }
  end;

然后实现这个消息处理方法：

procedure TForm1.WMActivateApp(var Message: TWMActivateApp);
begin
  inherited;
  // 当应用被激活（比如从最小化恢复）时，激活最后活动的窗体
  if Message.Active and Assigned(LastActiveForm) then
  begin
    LastActiveForm.BringToFront;
    LastActiveForm.Activate;
  end;
end;

这个方案能确保无论你的应用打开多少窗体，恢复时都会显示用户最后操作的那个，适用性更广。

内容的提问来源于stack exchange，提问作者Gianluca Colombo