delphi 实现可移动异形窗体（附项目文件）

效果如下：

实现方法：

新建一个Delphi工程，在窗体上放置一个image（图象）组件.

用IMAGE控件导入一张图片（图案为异形的轮廓）

将窗体的transparentcolor (颜色透明)设置为true(真)，

Transparent colorvalue 的属性设置为图片底色（可用colorSchemer Studio 取底色RGB）

procedure TForm1.FormCreate(Sender: TObject);

begin

Form1.TransparentColor:=true;

Form1.TransparentColorValue:=rgb(240,240,240);

end;

另外

设置

(1)来隐藏 标题栏

将form的borderStyle设置为 bsNone

(2)为图片设置鼠标按下事件 来让程序可以移动

procedure TForm1.Image1MouseDown(Sender:TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

ReleaseCapture; //窗体任意拖动

PostMessage(Self.Handle,WM_SYSCOMMAND,SC_MOVE+1,0);

end;

————————————————

版权声明：本文为CSDN博主「明明如月学长」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

原文链接：https://blog.csdn.net/w605283073/article/details/49050213