全透明窗体(效果比较好)

原创 2002年01月11日 17:34:00


全透明窗体(效果比较好)
uses里加上ExtCtrls
procedure tform1.setformtransparent;
var
  I: Integer;
  FullRgn,
  ClientRgn,
  ControlRgn: THandle;
  Margin,
  MarginX,
  MarginY,
  X,
  Y: Integer;
  W,H,S :Integer;
  bX,bY :Integer;
  c     :TColor;
begin
  Margin := (Width - ClientWidth) div 2;
  FullRgn := CreateRectRgn(0, 0, Width, Height);
  MarginX := Margin;
  MarginY := Height - ClientHeight - Margin;
  ClientRgn := CreateRectRgn(MarginX, MarginY, MarginX + ClientWidth, MarginY + ClientHeight);
  CombineRgn(FullRgn, FullRgn, ClientRgn, RGN_DIFF);
  DeleteObject(ClientRgn);
  for I:=0 to ControlCount-1 do
  begin
    X := MarginX + Controls[I].Left;
    Y := MarginY + Controls[I].Top;
    W:=Controls[I].Width;
    H:=Controls[I].Height;
{}
    if controls[i] is timage then begin
      with controls[i] as tImage do begin
        c:=Picture.Bitmap.Canvas.Pixels[0,0];
        for bX:=0 to Picture.Bitmap.Width-1 do begin
          for bY:=0 to Picture.Bitmap.Height-1 do begin
            if Picture.Bitmap.Canvas.Pixels[bX,bY]<>c then begin
              ControlRgn := CreateRectRgn(X+bX, Y+bY, X + bX+1, Y + bY+1);
              CombineRgn(FullRgn, FullRgn, ControlRgn, RGN_OR);
              DeleteObject(ControlRgn);
            end;
          end;
        end;
      end;
    end else
{}
    if controls[i] is tShape then begin
      if W < H then S := W else S := H;
      if (Controls[i] as tshape).Shape in [stSquare, stRoundSquare, stCircle] then
      begin
        Inc(X, (W - S) div 2);
        Inc(Y, (H - S) div 2);
        W := S;
        H := S;
      end;
      Inc(W); Inc(H); Inc(S);
      case (controls[i] as tshape).Shape of
        stRectangle, stSquare:
          ControlRgn := CreateRectRgn(X, Y, X + W, Y + H);
        stRoundRect, stRoundSquare:
          ControlRgn := CreateRoundRectRgn(X, Y, X + W, Y + H, S div 4, S div 4);
        stCircle, stEllipse:
          ControlRgn:=CreateEllipticRgn(X, Y, X + W, Y + H);
      else
        ControlRgn := CreateRectRgn(X, Y, X + W, Y + H);
      end;
      CombineRgn(FullRgn, FullRgn, ControlRgn, RGN_OR);
      DeleteObject(ControlRgn);
    end else
{}
    begin
      ControlRgn := CreateRectRgn(X, Y, X + W, Y + H);
      CombineRgn(FullRgn, FullRgn, ControlRgn, RGN_OR);
      DeleteObject(ControlRgn);
    end;
  end;
  SetWindowRgn(Handle, FullRgn, True);
  DeleteObject(FullRgn);
end;

procedure TForm1.FormResize(Sender: TObject);
begin
        setformtransparent;
end;

//rock
//转载请保留此信息

vb6.0做一个半透明窗体(全透)

步骤一:打开VB建立一个窗体Form 步骤二:将窗体背景颜色设为:&HFF0000 步骤三:将下面代码粘贴到程序中: Declare Function GetWindow...
  • a771948524
  • a771948524
  • 2013年05月06日 12:47
  • 1673

Android全透明状态栏效果

在onCreate方法中:  getWindow().requestFeature(Window.FEATURE_NO_TITLE);           if(VERSION.SDK_INT >...
  • qq_36255612
  • qq_36255612
  • 2018年01月25日 11:14
  • 33

WPR-007:WPF中窗体的透明设置

一般使用WindowStyle=,Background=,AllowsTransparency,Opacity来进行设置。 1、设置Opacity控制整个窗口的透明,包括上面的控件 Window ...
  • yysyangyangyangshan
  • yysyangyangyangshan
  • 2013年02月28日 17:18
  • 5241

设置导航栏全透明效果

前言本篇是iOS开发技巧系列博客的第五篇,本篇主要和大家一起分享如何设置导航栏全透明效果。在实际开发中也经常会有这样的需求,比如iPhone版本的QQ音乐,其播放音乐界面的导航栏就是透明的,如下所示:...
  • PandaDevelop
  • PandaDevelop
  • 2016年11月17日 20:46
  • 343

全透明状态栏效果

public class MainActivity extends Activity {              @SuppressLint("InlinedApi")       @Over...
  • u010083695
  • u010083695
  • 2017年04月13日 14:43
  • 125

Android5.0全透明状态栏效果

Android 5.0 状态栏全透明效果
  • fengye810130
  • fengye810130
  • 2015年03月19日 17:22
  • 53003

5.0全透明状态栏效果

mark://Android5.0全透明状态栏效果 if (Build.VERSION.SDK_INT >= Build.VERSION_CODES.LOLLIPOP) { Window wi...
  • u013034413
  • u013034413
  • 2016年07月16日 13:49
  • 132

CSS实现背景透明/半透明效果 但内容文字不透明

针对透明背景,包括背景图片和背景色 一、背景完全透明  .bg{background:transparent }   二、背景半透明 这里要分两个div,一个单独设置背景透明度,另外一个放内...
  • u011630575
  • u011630575
  • 2015年10月15日 16:58
  • 1350

窗体的视图切换效果

从ITOO的2.0 中期开始,勇霞师姐让我尝试着参照Java版的代码将.net的窗体实现类似百度的搜索界面,说起来并不难,今天我来将这个小功能分享给大家:        这个功能主要有两部分:  ...
  • YSC1123
  • YSC1123
  • 2015年03月22日 15:10
  • 1271

Winform实现窗体抖动的效果代码

 Winform实现窗体抖动的效果代码,我们都知道,在目前的即时通讯工具中都有窗体抖动的功能,这也是为了及时通知对方而设立的功能,今天我们就用Winform的C#版来实现窗体拌动的功能!思路:间隔一定...
  • yja886
  • yja886
  • 2010年11月09日 06:38
  • 2089
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:全透明窗体(效果比较好)
举报原因:
原因补充:

(最多只允许输入30个字)