Delphi 界面和组件背景透明相关方法

概述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

 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,RGN_OR);57   DeleteObject(tempRegion);58   SetwindowRgn(handle,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

 

 

 

 

总结

以上是内存溢出为你收集整理的Delphi 界面和组件背景透明相关方法全部内容，希望文章能够帮你解决Delphi 界面和组件背景透明相关方法所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。