Delphi 訊息機制副作用：Application 隱藏視窗導致最小化失效與解決方案

問題現象

實作單一執行個體應用：第二個實例啟動時喚醒第一個實例主視窗並置頂。使用 SetWindowPos(hWnd, HWND_TOPMOST...) 強制置頂後，發現主視窗**無法最小化** (最小化按鈕失效、WM_SYSCOMMAND / SC_MINIMIZE 無反應)，但最大化、關閉、操作正常。

根本原因分析

Delphi Application 隱藏視窗架構

VCL 建立隱藏視窗 Application.Handle (類別 TApplication) 作為訊息分派中心。主視窗的 WM_SYSCOMMAND 會轉發給 Application 處理。

TApplication.Minimize 關鍵邏輯

procedure TApplication.Minimize;
begin
  if not IsIconic(FHandle) then // FHandle = Application.Handle
  begin
    NormalizeTopMosts;
    SetActiveWindow(FHandle);
    if (MainForm <> nil) and (ShowMainForm or MainForm.Visible) and IsWindowEnabled(MainForm.Handle) then
    begin
      SetWindowPos(FHandle, MainForm.Handle, MainForm.Left, MainForm.Top, MainForm.Width, 0, SWP_SHOWWINDOW);
      DefWindowProc(FHandle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
    end
    else
      ShowWinNoAnimate(FHandle, SW_MINIMIZE);
    if Assigned(FOnMinimize) then FOnMinimize(Self);
  end;
end;

問題鏈

1. 主視窗被 SetWindowPos(hMain, HWND_TOPMOST...) 強制置頂
2. 此操作**未同步更新 Application 隱藏視窗狀態**
3. 使用者點擊最小化 → 主視窗 WM_SYSCOMMAND/SC_MINIMIZE → 轉發 Application.Minimize
4. IsIconic(Application.Handle) 回傳 True (系統誤判 Application 已最小化)
5. Minimize 提前返回，**主視窗未收到最小化指令**

解決方案

方案一：置頂前同步還原 Application 隱藏視窗 (推薦)

procedure BringToFrontAndRestore(const hMainWnd: HWND);
begin
  // 1. 先處理 Application 隱藏視窗
  if IsIconic(Application.Handle) then
  begin
    // 發送 SC_RESTORE 讓 Application 狀態同步
    DefWindowProc(Application.Handle, WM_SYSCOMMAND, SC_RESTORE, 0);
  end;
  
  // 2. 再置頂主視窗
  SetWindowPos(hMainWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);
  SetWindowPos(hMainWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);
  
  // 3. 確保主視窗啟用
  SetForegroundWindow(hMainWnd); // 或 SetActiveWindow / BringWindowToTop
end;

方案二：繞過 Application 直接最小化主視窗

procedure ForceMinimizeMainForm;
begin
  if Application.MainForm <> nil then
    PostMessage(Application.MainForm.Handle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
end;

缺點：繞過 VCL 邏輯，可能影響 OnMinimize 事件觸發、工作列動畫等。

方案三：使用標準 API 置頂而非 TOPMOST 技巧

procedure SafeBringToFront(const hWnd: HWND);
begin
  // 標準置頂序列
  if IsIconic(hWnd) then
    ShowWindow(hWnd, SW_RESTORE);
  SetWindowPos(hWnd, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_SHOWWINDOW);
  SetForegroundWindow(hWnd);
  SetActiveWindow(hWnd);
end;

避免 HWND_TOPMOST 來回切換帶來的 Z-order 混亂。

完整單一實例實作範例

program SingleInstanceApp;

uses
  Vcl.Forms, Winapi.Windows, Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

function IsAlreadyRunning: Boolean;
var
  Mutex: THandle;
begin
  Mutex := CreateMutex(nil, True, 'Global\MyApp_Unique_Mutex_Name_{GUID}');
  Result := (Mutex = 0) or (GetLastError = ERROR_ALREADY_EXISTS);
  if Result and (Mutex <> 0) then CloseHandle(Mutex);
end;

procedure WakeUpPreviousInstance;
var
  hWnd: HWND;
begin
  hWnd := FindWindow('TForm1', nil); // 或用 RegisterWindowMessage 廣播
  if hWnd <> 0 then
  begin
    // 發送自訂訊息喚醒
    PostMessage(hWnd, WM_APP + 1, 0, 0);
  end;
end;

begin
  if IsAlreadyRunning then
  begin
    WakeUpPreviousInstance;
    Exit;
  end;
  
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

// Unit1.pas - 主視窗接收喚醒訊息
type
  TForm1 = class(TForm)
  private
    procedure AppWakeUp(var Msg: TMessage); message WM_APP + 1;
  end;

procedure TForm1.AppWakeUp(var Msg: TMessage);
begin
  // 正確置頂並還原
  if IsIconic(Application.Handle) then
    DefWindowProc(Application.Handle, WM_SYSCOMMAND, SC_RESTORE, 0);
  
  if WindowState = wsMinimized then
    WindowState := wsNormal;
  
  SetWindowPos(Handle, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);
  SetForegroundWindow(Handle);
  BringToFront;
end;

深度理解：VCL 訊息分派鏈

{ 簡化流程 }
主視窗 WndProc
  → TControl.WndProc
    → TWinControl.WndProc
      → 若 WM_SYSCOMMAND 且 (SC_MINIMIZE/SC_MAXIMIZE/SC_RESTORE)
        → 發送 CM_SYSCOMMAND 給 Application
          → Application.WndProc
            → 處理 SC_MINIMIZE → TApplication.Minimize
              → 操作 Application.Handle (隱藏視窗)
              → 最後才影響主視窗

關鍵洞見：**Application.Handle 才是系統眼中的「主視窗」**，主視窗只是子視窗。所有系統級視窗狀態 (最小化、最大化、圖示化) 實際作用於 Application.Handle。

避坑指南

1. **操作視窗狀態時，優先考慮 Application.Handle 同步**
2. **單一實例喚醒：使用 Mutex + 自訂訊息 + 標準置頂 API**
3. **避免 HWND_TOPMOST 來回切換**，改用 HWND_TOP + SetForegroundWindow
4. **最小化/最大化邏輯**：信任 VCL WindowState 屬性或 ShowWindow API，勿直接發送 WM_SYSCOMMAND
5. **除錯技巧**：用 Spy++ 監控 Application.Handle 與主視窗的訊息流向

結語

Delphi 的 TApplication 隱藏視窗設計雖優雅統一了訊息處理，但也引入了「雙主視窗」的認知偏差。理解 IsIconic(Application.Handle) 才是真正的視窗狀態判斷，並在跨進程喚醒、置頂、狀態變更時主動同步雙方狀態，即可避免最小化失效等詭異問題。