---------鼠标怎么穿过我的透明窗体了?-----------

Question

窗体透明代码
 Form1.OldCreateOrder:=false;
    Form1.TransparentColor:=true;
    Form1.TransparentColorValue:=ClWhite;
运行起来效果很好,,,但我发现鼠标居然可以穿透透明窗体,点击到窗体后面的东东,比如ie里面的超级链接;我在窗体上的控件完全没有响应了.
   如何保持控件正常响应,又让窗体透明?

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
var
  L: longint;
begin
  L := GetWindowLong(Handle, GWL_EXSTYLE);
  L := L Or WS_EX_LAYERED;
  SetWindowLong(Handle, GWL_EXSTYLE, L);
  SetLayeredWindowAttributes(Handle, 0, 180, LWA_ALPHA);
end;
设置180那个参数,可以调整透明度