Наполовину активное окно

Как сделать так, чтобы окно было неактивно?
Вы скажете: "Ничего сложного. Нужно только свойство окна Enabled установить в false"...

но, так как окно является владельцем компонентов, находящихся на нём, то и все компоненты станут неактивными!

Но был найден способ избежать этого!

private
  { Private declarations }
  procedure WMNCHitTest (var M: TWMNCHitTest); message wm_NCHitTest;

implementation
{$R *.DFM}

procedure TForm1.WMNCHitTest (var M:TWMNCHitTest);
begin
  if M.Result = htClient then
    M.Result := htCaption;
end;