关于窗体透明的做法

Posted 2020-06-17

1.在Delphi中，设置窗体的AlphaBlend := true;AlphaBlendValue := 0-255; AlphaBlendValue越小窗体的透明度就越高。这种方法将会使窗体和窗体中控件都变成透明。
2.在Delphi中，设置TransparentColor := True与TransparentColorValue := TForm.Color, 则窗体变成透明，控件不透明。
3.使用API控制指定区域透明，如下，通过不绘制窗体四角的方法，来使四角变得圆滑透明,可在窗体Resize时调用。

procedure TFormPadMain.SetFormTransparent;
var
Rgn: HRGN;
begin
Rgn := CreateRoundRectRgn(0, 0, Width, Height, 11, 11);
SetWindowRgn(Handle, Rgn, True);
end;

-----------------------------------------------------------------------------------------------------------

DELPHI实现透明以及半透明窗体

上一篇《在DELPHI中获得磁盘容量》
下一篇《在DELPHI中编程生成ACCESS数据库文件并创建指向此连接的ODBC数据源》

　　在QQ中，我可以调节面板的透明度。如果我们自己编程，应该如何实现呢？
　　 （一）半透明窗体
　　 在windows2000以及后续产品中下增加了一些API,可以轻易的实现半透明的窗体，源程序如下：
　　interface
　　uses
　　 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
　　const//定义常量
　　 WS_EX_LAYERED = $80000;
　　 AC_SRC_OVER = $0;
　　 AC_SRC_ALPHA = $1;
　　 AC_SRC_NO_PREMULT_ALPHA = $1;
　　 AC_SRC_NO_ALPHA = $2;
　　 AC_DST_NO_PREMULT_ALPHA = $10;
　　 AC_DST_NO_ALPHA = $20;
　　 LWA_COLORKEY = $1;
　　 LWA_ALPHA = $2;
　　 ULW_COLORKEY = $1
　　 ULW_ALPHA = $2
　　 ULW_OPAQUE = $4
　　type
　　 TForm1 = class(TForm)
　　 procedure FormCreate(Sender: TObject);
　　 private
　　 { Private declarations }
　　 public
　　 { Public declarations }
　　 end;
　　function SetLayeredWindowAttributes(hwnd:HWND; crKey:Longint; bAlpha:byte; dwFlags:longint ):longint; stdcall; external user32;//函数声明
　　var
　　Form1: TForm1;
　　implementation
　　{$R *.DFM}
　　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);
　　//第二个参数是指定透明颜色
　　//第二个参数为0则使用第四个参数设置alpha值，从0到255
　　end;
　　end.
　　 （二） 透明窗体的实现
　　 将一个FORM变成透明的实质性手段就是拦截CMEraseBkgnd消息。
　　unit Utransform; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;
　　type TForm1 = class(TForm)
　　 private { Private declarations }
　　 public { Public declarations }
　　 PROCEDURE CMEraseBkgnd(var Message:TWMEraseBkgnd);Message WM_ERASEBKGND;
　　end;
　　var Form1: TForm1;
　　implementation
　　{$R *.DFM}
　　procedure TForm1.CMEraseBkgnd(var Message: TWMEraseBkgnd);
　　begin
　　brush.style:=bsClear;
　　end;
　　procedure TForm1.FormCreate(Sender: TObject);
　　begin
　　 Form1.Brush.Style := bsClear;//如果只拦截消息，没有这里的设置，窗内的标题栏一样会显示 Form1.BorderStyle := bsNone
　　end;
　　procedure TForm1.BitBtn1Click(Sender: TObject);
　　begin
　　 close;
　　end;(王朝网络 wangchao.net.cn)