Немодальное дочернее окно всегда сверху, WinAPI Опции

[TarasBer]

uses
  Windows, Messages;

var
  WC: TWndClass;
  H1, H2: hWND;
  Message: TMsg;

function WP(Handle: HWND; Message: UINT; WP: WParam; LP: LParam): longint; stdcall;
begin
  case Message of
    wm_Destroy: if Handle = H1 then begin
      PostQuitMessage(0);
      Result := 0;
      Exit;
    end;
  end;
  Result := DefWindowProc(Handle, Message, WP, LP);
end;

begin  
  with WC do begin
    Style := cs_HRedraw or cs_VRedraw or cs_OwnDC;
    lpfnWndProc := @WP;
    cbClsExtra := 0;
    cbWndExtra := 0;
    hInstance := MainInstance;
    hIcon := 0;
    hCursor := LoadCursor(0, idc_Arrow);
    hbrBackground := Color_BtnFace + 1;
    lpszMenuName := nil;
    lpszClassName := 'Test';
  end;

  RegisterClass(WC);

  H1 := CreateWindow('Test', 'Test1', ws_OverlappedWindow,
      100, 100, 320, 200,
      0, 0, MainInstance, nil);
      
  H2 := CreateWindow('Test', 'Test2', ws_OverlappedWindow,
      110, 110, 320, 200,
      H1, 0, MainInstance, nil);

  ShowWindow(H1, cmdShow);
  UpdateWindow(H1);
  
  ShowWindow(H2, sw_ShowNormal);

  while GetMessage(Message, 0, 0, 0) do begin
    TranslateMessage(Message);
    DispatchMessage(Message);
  end;

end.

Второе окно всегда сверху, даже когда первое активно.
Если у второго окна задавать родителем 0, то в панели задач будут 2 иконки, тоже не катит.
Что делать?
Как делать правильно?

[volvo]

Это я что-то ступил... Есть же еще WM_ACTIVATEAPP. Вот его и надо ловить, когда переключаемся с другого приложения.

var
  WasCA: byte = 0; // Перенес сюда, лень лезть в настройки компилятора

function WP(Handle: HWND; Message: UINT; WP: WParam; LP: LParam): longint; stdcall;
begin
  if WasCA > 0 then Dec(WasCA);
  case Message of
    wm_SysCommand:
    if Handle = H1 then begin
      if WP = sc_Minimize then ShowWindow(H2, sw_Hide)
      else if WP = sc_Restore then ShowWindow(H2, sw_Show);
    end;
    wm_Activate:
    if LoWord(WP) = wa_ClickActive then begin
      if Handle = H1 then begin
        BringWindowToTop(H2);
        BringWindowToTop(H1);
      end else begin
        BringWindowToTop(H1);
        BringWindowToTop(H2);
      end;
      WasCA := 2;
    end
    // Внимательнее. Здесь обработка должна быть только когда WasCA > 0, а не = ...
    else if (Handle = H1) and (LoWord(WP) = wa_Active) and (WasCA > 0) then begin
      BringWindowToTop(H2);
      BringWindowToTop(H1);
    end;

    // Собственно, переключение с другого приложения
    WM_ACTIVATEAPP:
    if WP <> 0 then // Активируется? Да, при деактивации WP = 0
    begin
        BringWindowToTop(H2);
        BringWindowToTop(H1);
    end;

    wm_Destroy: if Handle = H1 then begin
      PostQuitMessage(0);
      Result := 0;
      Exit;
    end;
  end;
  Result := DefWindowProc(Handle, Message, WP, LP);
end;

Как-то так.