Как сделать фантомное окно в Delphi?

Question

[Давид Манжула]

Как сделать окно в Delphi, но чтобы курсор(тоесть клик) проходил "сквозь него", как, например, в индикатора громкости на ноутбуках?

Answer 1

[Mercury13]

1. Включай свойство AlphaBlend. Даже если окошко хочешь непрозрачное, всё равно включай.
2. Переопределяй две функции.

procedure TfmMain.CreateParams(var Param : TCreateParams);  // override
begin
  inherited;
  Param.ExStyle := Param.ExStyle or WS_EX_TRANSPARENT;
end;

procedure TfmMain.WmNcHitTest(var Msg : TWMNCHitTest); // message WM_NCHITTEST;
begin
  Msg.Result := HTTRANSPARENT;
end;