怎么样把一个FORM变透明啊?请大家帮帮忙,说详细点!

解决方案 »

  1.   

    如果你用的是 Delphi 6.0 可以在窗口中设置一下两个属性就可以了。
      AlphaBlend:=True;
      AlphaBlendValue:=100;//数值在0~255之间,具体什么意思我用我多说了吧。如果你用的是 D6以前的版本那只好编成了。代码如下://先声明该函数和常量不要写在类里。
    function SetLayeredWindowAttributes(Handle: HWND;COLORKEY: COLORREF; Alpha: BYTE; Flags: DWORD): Boolean; stdcall; external 'USER32.DLL';
    Const
        WS_EX_LAYERED = $80000;
        LWA_ALPHA = 2;//再在Form的Create 中写如下代码。
    procedure TForm1.FormCreate(Sender: TObject);
    begin
      SetWindowLong(Handle,
                       GWL_EXSTYLE,
                       GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_LAYERED);
      SetLayeredWindowAttributes(Handle, 0, StrtoInt(Edit1.Text), 2);//Edit1.Text为0~255之间的整数
    end;
      

  2.   

    不过要在 win2000 才好用,在win9x下是不用的。
      

  3.   

    我看到人家的东西:
    将光标放到form的enabled上按F1将会有form的所有属性,你可以设置