Delphi 点击透明窗体

我有一个半透明的全屏表格，我需要一个可以控制我的电脑在这个表格

实际上，我们需要在计算机上安装红屏滤光片来观察天空，但我们不想使用红色有机玻璃之类的东西

我尝试了Windows API（监视器配置函数） 但我做不到。

---

我做了一些透明的表单，比如红色滤镜（一切看起来都是红色和黑色的），但我无法控制我的表单。有人帮我吗

创建一个新的VCL项目。在主窗体的属性中，将

Color

设置为

clRed

，

AlphaBlend

设置为

true

，

AlphaBlendValue

设置为

127

，

WindowState

设置为

wsMaximized

，

FormStyle

设置为

fsstationtop

，并添加以下代码：

type
  TForm1 = class(TForm)
  private
  protected
    procedure CreateParams(var Params: TCreateParams); override;

...

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.ExStyle := Params.ExStyle or WS_EX_LAYERED or WS_EX_TRANSPARENT;
end;

（，）

是的，我知道。：-）您不应对PEBKAC问题负责：D清理我上面添加的噪音。几分钟后我也会删除这个。