1 unit Unit1; 2  3 interface 4  5 uses 6  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7  Dialogs, StdCtrls; 8  9 type10 TForm1 = class(TForm)11  Edit1: TEdit;12  Button1: TButton;13  Memo1: TMemo;14  Label1: TLabel;15  Button2: TButton;16  Button3: TButton;17 procedure Button1Click(Sender: TObject);18 procedure Button2Click(Sender: TObject);19 procedure Button3Click(Sender: TObject);20 private21 { Private declarations }22 public23 { Public declarations }24 end;25 26 var27  Form1: TForm1;28 29 implementation30 31 {$R *.dfm}32 33 procedure TForm1.Button1Click(Sender: TObject);34 var35  frmRegion, tempRegion: HRGN;36  i: Integer;37  Arect: TRect;38 begin39 //界面全透明 组件半透明--->透明的背景下层:继续操作40 frmRegion := 0;41 for i := 0 to ControlCount - 1 do42 begin43 Arect := Controls[i].BoundsRect;44 OffsetRect(Arect, clientorigin.x - left, clientorigin.y - top);45 tempRegion := CreateRectRgnIndirect(Arect);46 if frmRegion = 0 then47 frmRegion := tempRegion48 else49 begin50  CombineRgn(frmRegion, frmRegion, tempRegion, RGN_OR);51  DeleteObject(tempRegion);52 end;53 end;54 tempRegion := CreateRectRgn(0, 0, Width, GetSystemMetrics(SM_CYCAPTION) + GetSystemMetrics(SM_CYSIZEFRAME) + GetSystemMetrics(SM_CYMENU) * Ord(Menu <> Nil));55 56  CombineRgn(frmRegion, frmRegion, tempRegion, RGN_OR);57  DeleteObject(tempRegion);58  SetWindowRgn(handle, frmRegion, true);59 end;60 61 procedure TForm1.Button2Click(Sender: TObject);62 begin63 //界面全透明 组件不透明--->透明背景下层:不可操作64 Form1.color := clred;65 Form1.TransparentColorValue := clred;66 Form1.TransparentColor := true;67 end;68 69 procedure TForm1.Button3Click(Sender: TObject);70 begin71 //界面半透明 组件半边透明--->半透明背景下层:不可操作72 Form1.AlphaBlend := True;73 Form1.AlphaBlendValue := 150;74 end;75 76 end.

View Code