Question

我有一个半透明的全屏形式，我需要可以通过这个表格控制我的电脑。

Actualy我们需要在计算机上使用红色滤网来观察天空，但我们不想使用红色有机玻璃之类的东西。

我尝试过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）

点击透明表格

1 个答案: