谢谢!

解决方案 »

  1.   

    Delphi6、7自带功能:
    1.设窗体的AlphaBend属性为true;
    2.设其AlphaBendValue值,0-255之间。
      0为不透明,255为全透明
      

  2.   

    楼上的不对哦:
    1.设窗体的AlphaBend属性为true;
    2.设其AlphaBendValue值,0-255之间。
      0为全透明,255为不透明
      

  3.   

    那就来段代码吧procedure tm
    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);//第二个参数是指定透明颜色
    //第二个参数为0则使用第四个参数设置alpha值,从0到255,其他的我不太清楚,因为没有api帮助
    end;
      

  4.   

    Form 設AlphaBlend為true
    改變AlphaBlendValue值:不为255就可以!