Windows 11下Delphi 12.1 VCL应用恢复及任务栏图标问题

原代码中Application.Restore执行后窗体未恢复，是因为ShowMessage关闭后系统窗口焦点未正确回到主窗体，导致Restore仅恢复了窗口尺寸但未激活显示。通过Windows API强制激活主窗体即可解决：

uses
  Winapi.Windows;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.Minimize;
  ShowMessage('Test');
  Application.Restore;
  // 强制将主窗体置于前台并激活
  SetForegroundWindow(Application.MainForm.Handle);
end;

若SetForegroundWindow在部分场景下不生效（比如系统焦点被其他窗口抢占），可额外调用BringWindowToTop增强效果：

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.Minimize;
  ShowMessage('Test');
  Application.Restore;
  BringWindowToTop(Application.MainForm.Handle);
  SetForegroundWindow(Application.MainForm.Handle);
end;

你的替代方案中Application.MainForm.Visible := False导致任务栏图标消失，是因为VCL应用的任务栏图标与主窗体可见性绑定。要保留任务栏图标，需保持主窗体处于最小化状态而非隐藏，结合问题1的解决方案即可：

uses
  Winapi.Windows;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.Minimize; // 最小化主窗体，保留任务栏图标
  ShowMessage('Test');
  Application.Restore;
  SetForegroundWindow(Application.MainForm.Handle); // 激活主窗体
end;

若需要更精细的控制，也可以用MessageBoxAPI替代ShowMessage，明确指定主窗体为父窗口，强化模态对话框与主窗体的关联：

uses
  Winapi.Windows;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.Minimize;
  MessageBox(Application.MainForm.Handle, 'Test', '提示', MB_OK);
  Application.Restore;
  SetForegroundWindow(Application.MainForm.Handle);
end;

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