delphi - 点击透明表格

Question

我有一个半透明的全屏表单，我需要可以通过此表单控制我的计算机。

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

我尝试了 Windows API(监视器配置函数) http://msdn.microsoft.com/en-us/library/windows/desktop/dd692964(v=vs.85).aspx但我做不到。我做了像红色滤镜这样的透明形式(一切看起来都是红色和黑色色调)，但我无法通过我的形式控制计算机。有人帮我解决这个问题吗？

Answer 1

创建一个新的 VCL 项目。在主窗体的属性中，将Color设置为clRed，将AlphaBlend设置为true，AlphaBlendValue 到 127、WindowState 到 wsMaximized、FormStyle 到 fsStayOnTop，以及添加以下代码:

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;

( Sample video , Sample compiled EXE , Source )