窗口背景透明,还有透明区域鼠标可以穿透!

解决方案 »

  1.   

    这个好做,你先把窗体设置成透明,透明度随便,只要透明就好,
    然后
    重载procedure CreateWnd; override;就可以实现鼠标穿透了
    procedure TForm1.CreateWnd;
    begin
      inherited CreateWnd;
      SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or
        WS_EX_TRANSPARENT or
        WS_EX_LAYERED);
    end;
      

  2.   

    设置窗体的样式是层窗口并设置透明 SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or 
        WS_EX_TRANSPARENT or 
        WS_EX_LAYERED); 
      

  3.   

      TransparentColor:=True;
      TransparentColorValue:=25;
      Color:=TransparentColorValue;
    这个是最简单的,也是非常非常有效的