编程实现窗体的半透明效果

关注

原创最新推荐文章于 2026-04-21 09:14:27 发布 2.1k 阅读 AI 写同款· GEO 优化 ›

C#实现窗体半透明与透明效果的技巧在C#中，窗体的Opacity属性是控制窗体透明度的关键。通过修改此属性的值，可以轻松实现窗体的透明或半透明效果。Opacity属性是一个介于0到1之间的双精度浮点数，其中0表示完全透明（即不可见），而1则表示完全不透明（即完全可见）。透明度的调整为用户提供了更多的视觉体验和交云空间，尤其是在需要焦点窗体的场景中。在C#中，创建全透明窗体或半透明窗体是一个常见需求，它能够帮助开发者构建更加丰富和吸引人的用户界面。Form类的AllowTransparency属性是实现这一功能的关键。阅读详情

编程实现窗体的半透明效果　作者：罗蔷　发布时间：2001/03/16

文章摘要:

　　大家都知道Windows 2000支持淡入淡出的窗体显示效果。如何让自己的应用程序也具备这种效果呢？下文对此问题做出了解答。

正文:

编程实现窗体的半透明效果
　　
　　如果你不是使用Windows2000+Delphi编程的话，我不想浪费你的时间。如果是，请继续。
　　大家都知道Windows 2000支持淡入淡出的窗体显示效果。如何让自己的应用程序也具备这种效果呢？前两天研究FormContainer的Form显示效果时（注：FormContainer是一个强大的Delphi特效处理控件，有兴趣的朋友可以访问http://www.billeniumsoft.com/），得高人告知，核心API函数就是SetLayeredWindowAttributes。
　　要实现淡入淡出效果，就需要实现窗口的可调整的透明效果。传统的Windows应用程序想实现透明效果，一般来说需要处理自己的窗口的WM_Paint消息，程序员需要GetDC获取屏幕的HDC，调用BitBlt函数将屏幕将要被覆盖的区域拷贝到内存的TBitmap对象中，然后对该Tbitmap的ScanLine二维数组逐象素的修改rgbtRed、rgbtGreen和rgbtBlue值。天哪，实在是太麻烦了。
　　Windows2000的API库中终于提供了半透明的窗体显示效果支持（虽然不是很完善）。要实现半透明的窗口效果，首先需要给创建的窗口添加WS_EX_LAYERED 扩展属性，这是一个新的窗口扩展属性，Delphi5并没有定义相应的常量和SetLayeredWindowAttributes函数，我们需要手工声明。
function SetLayeredWindowAttributes(Handle: HWND; 
　　COLORKEY: COLORREF; Alpha: BYTE; Flags: DWORD): Boolean; stdcall; external 'USER32.DLL';
Const
　　WS_EX_LAYERED = $80000;
　　LWA_ALPHA = 2; 
　　我们调用GetWindowLong函数获取当前窗口的扩展属性，并调用SetWindowLong函数将新的WS_EX_LAYERED窗口扩展属性添加进去。
procedure TForm1.FormCreate(Sender: TObject);
begin
　　SetWindowLong(Handle,GWL_EXSTYLE,GetWindowLong(Handle,GWL_EXSTYLE) or WS_EX_LAYERED);
end;
　　现在我们的窗口已经可以调用SetLayeredWindowAttributes函数，通过设置该函数的Alpha参数，我们就可以看到窗口的效果的变化。
procedure TForm1.Button1Click(Sender: TObject);
begin
　　SetLayeredWindowAttributes(Form1.Handle, 0, 180, LWA_ALPHA);
end;
　　以下的VCL控件代码封装了SetLayeredWindowAttributes函数，编程时动态改变AlphaValue值，您就可以看到窗口的透明效果了。控件屏蔽了设计期的显示效果，如果读者愿意可以改为设计期效果可见，不过那样的话，一不小心，您可能就会找不着你要设计的窗体了 8-) 
unit TranForm; {DragonPC 2001.2.21 }
interface
uses
　　Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms ;
type
　　TTranForm = class(TComponent)
　　private
　　　FAlphaValue : integer ;
　　　FParentFormHandle : HWND ;
　　procedure SetFAlphaValue(Alpha:integer) ;
　　　protected
　　　procedure UpdateDisplay ;
public
　　constructor Create(AOwner: TComponent); override;
published
　　property AlphaValue : integer read FAlphaValue write SetFAlphaValue ;
end;
procedure Register;
function SetLayeredWindowAttributes(Handle: HWND; COLORKEY: COLORREF;
　　Alpha: BYTE; Flags: DWORD): Boolean; stdcall; external 'USER32.DLL';
implementation
procedure Register;
begin
　　RegisterComponents('Standard', [TTranForm]);
end;
procedure TTranForm.SetFAlphaValue(Alpha: integer);
　　begin
　　　if (Alpha >= 0) and (Alpha < 256) then begin
　　　FAlphaValue := Alpha ;
　　　UpdateDisplay() ;
　　end;
end;
procedure TTranForm.UpdateDisplay;
begin
　if (csDesigning in ComponentState) then Exit ;
　SetLayeredWindowAttributes(FParentFormHandle, 0, FAlphaValue, 2);
end;
constructor TTranForm.Create(AOwner: TComponent);
begin
　　inherited;
　　if (csDesigning in ComponentState) then Exit;
　　FAlphaValue := 255 ;
　　FParentFormHandle := TForm(AOwner).Handle ;
　　SetWindowLong(FParentFormHandle,
　　　　　　　　　GWL_EXSTYLE, 
　　　　　　　　　GetWindowLong(FParentFormHandle, GWL_EXSTYLE) or WS_EX_LAYERED);
end;
end.
　　谢谢您的莫大耐心得以看完此文，此文纯粹本着赚取china-pub"假币"目的所写，万一各位看官有任何的疑问，欢迎信至dragonpc@21cn.com，谢谢。

作者会员名：dragonpc