一个最简单的Delphi2010的PNG异形窗口方法

同事演示了一个.NET的的PNG异形窗口.挺漂亮.于是也想用Delphi显摆一个.

关于Delphi用PNG做异形窗口的资料有不少.都是用GDIPlus或者TPNGImage组件加载PNG图像做的.但是我很懒,不想引用的GDIPlus,也不想去找PNGImage下载.

好在从Delphi2009开始Delphi中就收购了PNGImage,并集成到后继的版本中.Delphi2010又包装了微软的IWICImagingFactory接口,这样处理PNG的工作就交给操作系统去做了.

函数很简单一共就几行,关键就是UpdateLayeredWindow.

发现CodeGear真让我上火.他们收工了PNGImage以后搞的东西居然改出了问题.透明盒渐变都有问题.做异形窗口该渐变部分居然是透明的.该透明的部分居然是不透明的.看了一下被收购前的PNGImage一点问题都没有.CodeGear真实的.

只好用Delphi2010提供的IWICImagingFactory接口的包装了,这次PNG的处理交给微软的操作系统了,一点问题也没有.其他版本的Delphi只要能对IWICImagingFactory进行包装,也一样能处理.但还是Delphi2010最方便.什么控件也不用,多余的东西都不要.

 

代码如下,很简单吧:)

{*******************************************************}
{                                                       }
{       异形窗口                                        }
{                                                       }
{       2009.12.4 王  锐                                }
{                                                       }
{*******************************************************}


unit UnitYXForm;

interface
uses
  Windows, Forms, Classes, Graphics;

//从文件加载PNG
procedure YXForm_FromFile(AForm : TForm; AFileName : String);
//从资源加载PNG
procedure YXForm_FromResource(AForm : TForm; ResName : String; ResType : PWideChar; Instance : HINST = 0);
//从图像对象加载
procedure YXForm_FromGraphic(AForm : TForm; AGraphic : TGraphic);

implementation

procedure YXForm_FromFile(AForm : TForm; AFileName : String);
var
  wic : TWICImage;
begin
  wic := TWICImage.Create;
  wic.LoadFromFile(AFileName);
  YXForm_FromGraphic(AForm, wic);
  wic.Free;
end;

procedure YXForm_FromResource(AForm : TForm; ResName : String;ResType : PWideChar; Instance : HINST);
var
  wic : TWICImage;
  r : TResourceStream;
begin
  if Instance = 0 then
    Instance := HInstance;
  r := TResourceStream.Create(Instance, ResName, ResType);
  wic := TWICImage.Create;
  wic.LoadFromStream(r);

  YXForm_FromGraphic(AForm, wic);
  wic.Free;
  r.Free;
end;

procedure YXForm_FromGraphic(AForm : TForm; AGraphic : TGraphic);
var
  ptDst, ptSrc: TPoint;
  Size: TSize;
  BlendFunction: TBlendFunction;
  bmp : TBitmap;
begin
  bmp := TBitmap.Create;
  bmp.Assign(AGraphic);
  ptDst := Point(AForm.Left, AForm.Top);
  ptSrc := Point(0, 0);
  Size.cx := AGraphic.Width;
  Size.cy := AGraphic.Height;

  BlendFunction.BlendOp := AC_SRC_OVER;
  BlendFunction.BlendFlags := 0;
  BlendFunction.SourceConstantAlpha := $FF; // 透明度
  BlendFunction.AlphaFormat := AC_SRC_ALPHA;

  SetWindowLong(AForm.Handle, GWL_EXSTYLE, GetWindowLong(AForm.Handle,
      GWL_EXSTYLE) or WS_EX_LAYERED);
  UpdateLayeredWindow(AForm.Handle,
     AForm.Canvas.Handle,
     @ptDst,
     @Size,
     bmp.Canvas.Handle,
     @ptSrc,
     0,
     @BlendFunction,
     ULW_ALPHA);
  bmp.Free();
end;

end.

 

想要用的时候很简单,举个例子:

  ff := TForm2.Create(Self);
  YXForm_FromFile(ff, 'c:/a.png');

  ff.Show;

实现动画也很容易.只要不停地YXForm_FromFile(ff, 'c:/a.png');调用一套动作PNG就可以了.

效果如下:

 

### 回答1: Delphi一个广泛使用的编程语言和集成开发环境(IDE),用于创建Windows应用程序。PNG是一种用于存储和传输图像的文件格式。异形窗口指的是具有不规则形状的窗口,与传统的矩形窗口不同。 在Delphi中创建一个PNG异形窗口可以遵循以下步骤: 1. 首先,将所需的PNG图像文件导入到Delphi项目中。这可以通过在项目中添加一个新的图像文件来完成。 2. 接下来,在Delphi窗体设计器中添加一个TPngImage控件。这个控件将用于显示加载的PNG图像。 3. 设置TPngImage的属性,指定要加载的PNG图像文件。 4. 在窗体的OnCreate事件中,使用TPngImage将PNG图像绘制到窗体的Canvas上。这可以通过调用Canvas.Draw方法来完成。 5. 在窗体的OnPaint事件中,重绘窗体的非客户区,以实现异形效果。可以使用Windows API函数来绘制非客户区。 6. 最后,在窗体的OnResize事件中,重新计算窗体的非客户区矩形,并使用TPngImage重新绘制异形窗口。 使用上述步骤,就可以在Delphi中创建一个带有PNG异形窗口的应用程序。这样,在运行应用程序时,窗口将显示加载的PNG图像,并且窗口的形状将不再是传统的矩形,而是根据PNG图像的形状进行修改。这使得应用程序可以拥有独特和吸引人的界面设计。 ### 回答2: Delphi是一种常用的编程语言,而PNG是一种常见的图像文件格式。在Delphi中实现PNG异形窗口指的是为窗口添加一个非矩形的形状,使其不再是传统的矩形窗口,而是可以根据预设的PNG图像形状显示。 实现PNG异形窗口的一种方法是使用透明颜色。首先,需要创建一个PNG格式的图像文件,图像中窗口外部区域将被指定为透明颜色。然后,在Delphi代码中,将窗口的外观设置为透明,让透明部分显示为窗体背后的内容。 在Delphi中,可以使用AlphaBlend函数来实现窗口的透明效果。需要设置窗口WindowStyle属性为wsPopup,并将Color和TransparentColor属性设置为透明色,通过设置透明色,可以使窗口背后的内容显示出来。 然后,使用AlphaBlend函数,将PNG图像绘制到窗口的Canvas上,这样就可以实现非矩形的窗口形状。通过调整窗口的位置和大小,使窗口PNG图像的形状完全相符。 在处理鼠标事件时,需要考虑非矩形窗口的点击问题。可以使用PtInRegion函数来判断鼠标点击的位置是否在窗口的非透明区域,然后根据点击位置执行相应的操作。 总的来说,通过使用Delphi的透明特性和AlphaBlend函数,可以实现PNG异形窗口。这样的窗口不仅能够为应用程序增添视觉上的吸引力,还可以提供更丰富的用户体验。
评论 10
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值