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

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Memo1: TMemo;
    Label1: TLabel;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  frmRegion, tempRegion: HRGN;
  i: Integer;
  Arect: TRect;
begin
  //界面全透明  组件半透明--->透明的背景下层:继续操作
  frmRegion := 0;
  for i := 0 to ControlCount - 1 do
  begin
    Arect := Controls[i].BoundsRect;
    OffsetRect(Arect, clientorigin.x - left, clientorigin.y - top);
    tempRegion := CreateRectRgnIndirect(Arect);
    if frmRegion = 0 then
      frmRegion := tempRegion
    else
    begin
      CombineRgn(frmRegion, frmRegion, tempRegion, RGN_OR);
      DeleteObject(tempRegion);
    end;
  end;
  tempRegion := CreateRectRgn(0, 0, Width, GetSystemMetrics(SM_CYCAPTION) + GetSystemMetrics(SM_CYSIZEFRAME) + GetSystemMetrics(SM_CYMENU) * Ord(Menu <> Nil));

  CombineRgn(frmRegion, frmRegion, tempRegion, RGN_OR);
  DeleteObject(tempRegion);
  SetWindowRgn(handle, frmRegion, true);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  //界面全透明  组件不透明--->透明背景下层:不可操作
  Form1.color := clred;
  Form1.TransparentColorValue := clred;
  Form1.TransparentColor := true;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  //界面半透明  组件半边透明--->半透明背景下层:不可操作
  Form1.AlphaBlend := True;
  Form1.AlphaBlendValue := 150;
end;

end.