Немодальное дочернее окно всегда сверху, 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 иконки, тоже не катит.
Что делать?
Как делать правильно?

[TarasBer]

> это уже случай WA_ACTIVE, если не произошло WA_CLICKACTIVE перед этим

Не, так не прокатило - при старте как раз происходит wa_Active без wa_ClickActive и если в обработчике "wa_Active, перед которым не было wa_ClickActive" написать подъём окон, то при старте они дёргаются.

> Ну, как тебе безVCL-ный код?

Документацию рыть много надо, а так разницы мало - у меня всё равно болшая часть кода не относится к интерфейсу.

Добавлено через 1 мин.
Или я не так понял? Оконна функция:

function WP(Handle: HWND; Message: UINT; WP: WParam; LP: LParam): longint; stdcall;
const
  WasCA: byte = 0;
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 else if (Handle = H1) and (LoWord(WP) = wa_Active) and (WasCA = 0) then 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;