anchor.diff:      WM_NCACTIVATE:
           begin
             {$IFDEF DEBUG}
  -            writeln(w.ClassName + ': WM_NCACTIVATE');
  +            write(w.ClassName + ': WM_NCACTIVATE ');
  +            writeln(wParam);
             {$ENDIF}
  -          if (Lo(wParam) = WA_INACTIVE) then
  +          if (wParam = 0) then
               fpgSendMessage(nil, w, FPGM_DEACTIVATE)
             else
               fpgSendMessage(nil, w, FPGM_ACTIVATE);
  
positive.code: 
    FHiddenWindow := 0;
  
    FIsInitialized := True;
    wapplication   := TfpgApplication(self);
  end;
  
  function TfpgApplicationImpl.DoMessagesPending: boolean;
  
negative.code:     Windows.RegisterClass(@HiddenWndClass);
  
      FHiddenWindow := CreateWindow('FPGHIDDEN', '',
        DWORD(WS_POPUP), 0, 0, 0, 0, TfpgWindowImpl(MainForm).FWinHandle, 0, MainInstance, nil);
    end;
    Result := FHiddenWindow;
  end;
  