---===制作全透明的窗口===---

原创 2001年05月04日 17:17:00
怎样制作全透明的窗口
2000-08-01· -·逸仙时空

  我不知道全透明的窗口有什么用,但毕竟作为一种技巧,还是拿出来说说吧。下面这个例子演示如何显示透明的窗口.同时也介绍了如何捕获屏幕.必须把Form1的BorderStyle属性置为bsNone

  

  C++ Builder

  请参照Delphi的例子

 
Delphi

unit homepage_coolform;interfaceuses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs

ExtCtrls, StdCtrls, Buttons;

type TForm1 = class(TForm)

procedure FormPaint(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure FormDestroy(Sender: TObject);

private { Private declarations }

public { Public declarations }

hbmp:integer;

end;

var Form1: TForm1;

implementation

{$R *.DFM}

function CopyScreenToBitmap(Rect:TREct):integer;

var

hScrDC, hMemDC, hBitmap, hOldBitmap:integer;

nX, nY, nX2, nY2: integer;

nWidth, nHeight:integer;

xScrn, yScrn:integer;

begin

if (IsRectEmpty(Rect)) then

begin

result:= 0;

exit;

end; // 获得屏幕缓冲区的句柄.

// a memory DC compatible to screen DC

hScrDC:= CreateDC('DISPLAY', pchar(0), pchar(0), PDeviceModeA(0));

hMemDC:= CreateCompatibleDC(hScrDC);

// get points of rectangle to grab

nX := rect.left;

nY := rect.top;

nX2 := rect.right;

nY2 := rect.bottom;

// get screen resolution

xScrn:= GetDeviceCaps(hScrDC, HORZRES);

yScrn := GetDeviceCaps(hScrDC, VERTRES);

//make sure bitmap rectangle is visible

if (nX <0) then

nX :="0;"

if (nY < 0) then

nY :="0;"

if (nX2> xScrn) then

nX2 := xScrn;

if (nY2 > yScrn) then

nY2 := yScrn;

nWidth := nX2 - nX;

nHeight := nY2 - nY;

// create a bitmap compatible with the screen DC

hBitmap := CreateCompatibleBitmap(hScrDC, nWidth, nHeight);

// select new bitmap into memory DC

hOldBitmap := SelectObject(hMemDC, hBitmap);

// bitblt screen DC to memory DC

BitBlt(hMemDC, 0, 0, nWidth, nHeight, hScrDC, nX, nY, SRCCOPY);

// select old bitmap back into memory DC and get handle to

// bitmap of the screen

hBitmap := SelectObject(hMemDC, hOldBitmap);

// clean up

DeleteDC(hScrDC);

DeleteDC(hMemDC);

result:= hBitmap;

end;

procedure TForm1.FormShow(Sender: TObject);

Var

rect:TRect;

p:TPoint;

begin

rect:=ClientRect;

p:=ClientOrigin;

rect.left:=p.x;

rect.top:=p.y;

rect.bottom:=rect.bottom+p.y;

rect.right:=rect.right+p.x;

hbmp:=copyScreenToBitmap(rect);

inherited;

end;

procedure TForm1.FormPaint(Sender: TObject);

var

bitmap:TBitmap;

rect:TRect;

begin

bitmap:=TBitmap.create;

bitmap.handle:=hbmp;

rect:=ClientRect;

canvas.draw(rect.left,rect.top,bitmap);

bitmap.handle:=0;

bitmap.free;

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin

DeleteObject(hbmp);

end;

end.

---===制作全透明的窗口===---

无论做什么产品的销售,都有六个关键的因素:情报、客户需求、产品价值、客户关系、价格以及客户使用后的体验。销售人员首先要建立关系,然后才能挖掘需求,然后有针对性地介绍价值,等客户接受之后进行价格谈判...
  • hejishan
  • hejishan
  • 2008年04月12日 10:29
  • 279

C#简单实现窗口全透明

C#简单实现窗口全透明 实现窗口全透明,不管用什么编程语言,其实原理都是一样的,为了进一步展现各语言实现整个窗口全透明,现将C#的源码送上,供大家参考。我用的编写环境为:Windows Vista 、...
  • SnowRen3074
  • SnowRen3074
  • 2008年10月23日 12:33
  • 1758

VB简单实现窗口全透明

VB简单实现窗口全透明     实现窗口全透明,不管用什么编程语言,其实原理都是一样的,为了进一步展现各语言实现整个窗口全透明,前几天已将C#和C++MFC源码发布,现将用VB实现的源码送上,供大家参...
  • SnowRen3074
  • SnowRen3074
  • 2008年10月29日 14:01
  • 2166

Android全透明Activity示例

 AndroidManifest.xml      
  • ccwwff
  • ccwwff
  • 2010年10月26日 01:04
  • 12858

MFC对话框简单实现窗口全透明的方法

在Vista系统中利用dwapi.dll实现窗体全透明的方法,在网上更多的资源是基于WTL或是C#,借此发布一下基本MFC对话框实现此此功能的最简单的方法。  本方法只是实现整个程序的窗口界面(包括...
  • yongzhen150
  • yongzhen150
  • 2013年09月13日 18:11
  • 2586

win10如何使任务栏全透明

首先需要用到一款软件,名字是StartIsBack 附上百度云地址: 链接:http://pan.baidu.com/s/1hrTGFAk 密码:lr6e安装过程很简单,所以跳过.安装完成后打开如...
  • qq_18297675
  • qq_18297675
  • 2016年08月15日 13:49
  • 1695

一步一步实现WPF透明化窗口

这一篇教程讲述如何实现透明窗体和透明控件,在WindowStyle设置为none情况下拖拽窗口,半透明作为较容易实现的一种美观化,对于大多数美工较弱的开发者来说实用性不错,能在一些平面化设计场合发挥简...
  • u012388993
  • u012388993
  • 2017年03月12日 10:19
  • 2838

Direct2D与DWM结合得到的一个背景半透明的程序

Windows Vista和Windows 7中引入了一个新的组件:Desktop Window Manager(DWM),用于管理和控制窗口的显示。由于DWM和Direct2D在底层都是基于Dire...
  • Augusdi
  • Augusdi
  • 2013年06月07日 22:32
  • 2307

制作窗口

制作登录窗口 一、 实验目的 1、 掌握在窗体上添加控件的方法; 2、 了解窗体等基本对象属性的设置方法; 3、 掌握可视化数据管理器的使用方法; 4、 掌握数据控件及绑定控件的使用方法; ...
  • nayimoliunian
  • nayimoliunian
  • 2016年06月01日 20:51
  • 36

android 全透明式状态栏

全透明状态栏继上一篇博客fitsystemwindows简单使用之后发现5.0设置如下属性之后 状态栏是半透明的 if(Build.VERSION.SDK_INT >= Build.VERSION_C...
  • u012885461
  • u012885461
  • 2016年04月05日 22:19
  • 1210
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:---===制作全透明的窗口===---
举报原因:
原因补充:

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