点击透明表格

Question

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

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

我尝试了Windows API(监视器配置功能)http://msdn.microsoft.com/en-us/library/windows/desktop/dd692964 (v=vs.85) .aspx 但我不能这样做.我做了透明的形式,如红色滤镜(一切似乎红色和黑色调),但我无法控制计算机在我的形式.有人帮我这个吗？

Answer 1

创建一个新的VCL项目.在主窗体的属性中,设置Color为clRed,AlphaBlendto true,AlphaBlendValueto 127,WindowStateto wsMaximized,FormStyleto 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;

(示例视频,示例编译EXE,来源)