NoBn - 窗口透明

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;