用DELPHI實現透明以及半透明窗體

2006-06-07 04:32:35  編輯來源:互聯網  简体版  手機版  評論  字體: 小|中|大

 

 

　　在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;

 

 

 

 

 

 

 

 

 

 

 

 

在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;

 

 

 

　　免責聲明：本文僅代表作者個人觀點，與王朝網路無關。王朝網路登載此文出於傳遞更多信息之目的，並不意味著贊同其觀點或證實其描述，其原創性以及文中陳述文字和內容未經本站證實，對本文以及其中全部或者部分內容、文字的真實性、完整性、及時性本站不作任何保證或承諾，請讀者僅作參考，並請自行核實相關內容。