在线生成html网页，Delphi异形窗口之PNG

Delphi异形窗口之PNG

在Windows中，常规窗口形状为矩形形状，并且无法更改。然而，如果您想打造一个个性化的应用程序，则可能需要创建自定义的非矩形窗口。

有几种方法可以实现这种异形窗口，其中一种方法是使用带有透明部分的PNG图像作为窗口背景。通过此方法，可以实现比使用标准窗口形状更具想象力的创意设计。

在本文中，我们将介绍使用PNG图像作为Delphi异形窗口的背景的步骤。

1.创建窗体

首先，打开Delphi并创建一个新的VCL Forms应用程序。然后，从工具箱中拖动TForm组件并将其放置在窗体设计器中。

2.导入PNG文件

将PNG文件拖放到窗体设计器中心的任意位置，PNG文件将自动转换为TPngImage组件。

3.准备背景透明

使用输入框将图像位置设置为0,0。在窗体设计器中选中图像组件，将Transparent设置为True。在图像属性中选择AlphaChannel，并将值设置为True。

4.修改窗体外观

接下来，通过修改窗体属性来实现不规则窗口形状。在窗体设计器中选择窗体，将BorderStyle设置为bsNone，将DoubleBuffered设置为True。

此时，程序可能已经可以运行并显示透明的PNG图像，但您可能无法拖动窗口、最大化或最小化窗口。为了解决这个问题，我们需要使用Windows API来创建自定义窗体边框。

5.实现自定义窗体边框

实现自定义窗口边框主要包括以下几个步骤：

1）重写CreateParams方法，在其中修改窗体样式和扩展样式。为了使窗口可以拖动，我们在Style中添加WS_POPUP窗口样式，并在ExStyle中添加WS_EX_LAYERED、WS_EX_TRANSPARENT和WS_EX_TOOLWINDOW扩展样式。

2）使用Windows API中的CreateRoundRectRgn函数创建圆角区域，这将决定窗口的非矩形形状。

3）使用Windows API中的DwmExtendFrameIntoClientArea函数将自定义边框扩展到客户区域。这将贯穿整个应用程序并使其看起来更整洁。

6.代码实现

下面是实现自定义窗口边框的Delphi代码：

```Delphi

unit Unit1;

interface

uses

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

Dialogs, ExtCtrls, PngImage;

type

TForm1 = class(TForm)

PngImage1: TPngImage;

procedure CreateParams(var Params: TCreateParams); override;

procedure FormCreate(Sender: TObject);

procedure FormPaint(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CreateParams(var Params: TCreateParams);

var

Rgn: HRgn;

begin

inherited;

with Params do

begin

Style := WS_POPUP;

ExStyle := WS_EX_LAYERED or WS_EX_TRANSPARENT or WS_EX_TOOLWINDOW;

end;

Rgn := CreateRoundRectRgn(0, 0, Width, Height, 20, 20);

SetWindowRgn(Handle, Rgn, True);

SetClassLong(Handle, GCL_STYLE, GetClassLong(Handle, GCL_STYLE) or CS_DROPSHADOW);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

PngImage1.Transparent := True;

PngImage1.LoadFromFile('C:\image.png');

SetBounds(Left, Top, PngImage1.Width, PngImage1.Height);

end;

procedure TForm1.FormPaint(Sender: TObject);

begin

Canvas.Draw(0, 0, PngImage1);

BorderWidth := 0;

Self.DoubleBuffered := True;

DwmExtendFrameIntoClientArea(Handle, Rect(30, 30, 30, 30));

end;

end.

```

7.运行并测试

现在您可以运行代码并测试刚刚创建的异形窗口了！您应该能够通过点击并拖动窗口或使用控制菜单来拖动、最小化或关闭窗口。

总结

此方法可以实现具有想象力的非矩形窗口，特别适合用于创建漂亮的用户界面和品牌识别设计。使用透明PNG图像将在很大程度上提高您的窗口设计，但要记得提供用户拖动窗口和操作窗口控件的功能。