<窗体特效〉半透明窗体 像Foxmail3.1beta的一样

原创 2000年08月09日 00:45:00
在windows2000下增加了一些API,可以轻易的实现半透明的窗体,源程序如下,必要的地方我加上了注释
unit Unit1;

interface

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

const
  WS_EX_LAYERED = $80000;
  AC_SRC_OVER = $0;
  AC_SRC_ALPHA = $1;
  AC_SRC_NO_PREMULT_ALPHA = $1;
  AC_SRC_NO_ALPHA = $2;
  AC_DST_NO_PREMULT_ALPHA = $10;
  AC_DST_NO_ALPHA = $20;
  LWA_COLORKEY = $1;
  LWA_ALPHA = $2;
  ULW_COLORKEY = $1
  ULW_ALPHA = $2
  ULW_OPAQUE = $4
//新增加的常量定义
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

function SetLayeredWindowAttributes(hwnd:HWND; crKey:Longint; bAlpha:byte; dwFlags:longint ):longint; stdcall; external user32;//函数声明

var
Form1: TForm1;

implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
var l:longint;
begin
    l:=getWindowLong(Handle, GWL_EXSTYLE);
    l := l Or WS_EX_LAYERED;
    SetWindowLong (handle, GWL_EXSTYLE, l);
    SetLayeredWindowAttributes (handle, 0, 180, LWA_ALPHA);
//第二个参数是指定透明颜色
//第二个参数为0则使用第四个参数设置alpha值,从0到255,其他的我不太清楚,因为没有api帮助
end;



end.

delphi 异形窗体可半透明

unit xDrawForm; interface uses Windows, Messages, SysUtils, Classes, Controls, Forms, Menus, Gr...
  • wc1000
  • wc1000
  • 2015年07月18日 16:05
  • 969

[QT编程]QT实现不规则窗体和透明窗体

[QT编程]QT实现不规则窗体和透明窗体 不规则窗体的实现有两种方式: 一种是设置窗体的掩码图像; 另一种是设置窗体背景透明,然后重写其绘图函数,将背景图绘制上去。   第一种方式: ...
  • oMingZi12345678
  • oMingZi12345678
  • 2013年10月18日 16:16
  • 1400

MFC实现父窗口不透明,子窗口半透明效果

C++代码 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24...
  • dsg333
  • dsg333
  • 2013年08月15日 21:16
  • 4511

C# 透明窗体制作方法

制作透明窗体办法有好几种,各有优缺点. 我们先来看看C#本身提供的办法 1:通过设置窗体的 TransparencyKey实现      例:窗体中的白色会变成透明 this...
  • wwqingyue
  • wwqingyue
  • 2016年10月31日 17:57
  • 619

VB通过windows API实现窗口透明,部分透明,CreateRectRgn,CombineRgn

VB通过windows API实现窗口透明,部分透明1 效果图展示 2 相关API函数介绍Public Declare Function CreateRectRgn Lib "gdi32" (ByV...
  • wf824284257
  • wf824284257
  • 2016年12月06日 19:22
  • 204

wxWidgets 不规则透明WinForm窗体(通过透明图片实现)

#include "wx/wxprec.h" class MyFrame; class MyApp : public wxApp { public: virtual bool OnInit();...
  • tiandyoin
  • tiandyoin
  • 2015年01月09日 17:13
  • 1191

WPF 制作子窗体的弹出动画效果

创建一个WPF应用程序WpfApplication1,新建个窗体DialogWin    
  • LeyYang
  • LeyYang
  • 2013年05月08日 10:04
  • 3922

duilib制作窗体动画效果

转载请说明原出处,谢谢~·http://blog.csdn.net/zhuhongshu/article/details/49026605         最近一段时间没写博客了,感...
  • ye731232199
  • ye731232199
  • 2016年03月02日 15:43
  • 612

MFC拖动窗体时使窗体半透明

如是大家细心的话,在使用“Virtual Drive Manager”也就是一个非常小的虚拟光驱的时候,在它的设置里有一个“启用窗口的 Alpha 混合半透明效果”功能。这个功能很友善,就是在你想拖动...
  • jiangqin115
  • jiangqin115
  • 2015年04月10日 19:06
  • 723

使用duilib开发半透明异形窗体程序(附源码和demo)

转载请说明原出处,谢谢~~:                  半透明异形窗体的功能在之前维护的老版本的duilib里面已经有了基本的功能,但是因为一直存在较多的缺陷,所以我一直建议少用,就连我自己写...
  • zhuhongshu
  • zhuhongshu
  • 2015年02月05日 19:58
  • 9645
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:<窗体特效〉半透明窗体 像Foxmail3.1beta的一样
举报原因:
原因补充:

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