Немодальное дочернее окно всегда сверху, 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]

Теперь у меня новая проблема.
Если переключиться на другое приложение, закрывающее окно2, а потом снова на это, то окно2 пропадает.
Надо ловить wm_Activate и руками что-то писать?
И ещё, надо, чтобы при соваривании окна1 сворачивалось и окно2 (да, я забыл это сказать, думал, что такой эффект сам собой получится).

Вот теперь - "вот тебе и преимущества безVCL-ного кода". Само сделается? Не сделается. Надо вручную прописывать. Ловишь WM_SYSCOMMAND, и если WPARAM = SC_MINIMIZE, то сворачиваешь главное окно и скрываешь (повторяю, скрываешь а не сворачиваешь, если свернешь - оно свернется аккуратно над таскбаром, слева, я не думаю, что это зрелище кого-нибудь обрадует, тебя - в первую очередь) второе. Как только получаешь SC_RESTORE - показываешь второе окно и разворачиваешь первое.

То же самое касается и обработки WM_ACTIVATE... Проверить какая именно активация была, если по какому-то окну щелкнули мышой (WA_CLICKACTIVE), то делать BringWindowToTop(другое_окно), потом BringWindowToTop(то_по_которому_щелкнули). Чтобы окна расположились в правильном порядке. Если ткнули на кнопку в таскбаре (это уже случай WA_ACTIVE, если не произошло WA_CLICKACTIVE перед этим), то поднимать окна в порядке "сначала H2, потом H1", ибо кнопка в таскбаре связана с H1, значит, оно должно оказаться выше. Если хочется особо поизвращаться - заведи булеву переменную IsFirstWindowAbove, и поднимай окна в нужном порядке, при активации к тому же меняя значение этой переменной.

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