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

源码下载地址：http://yunpan.cn/cFsrRxJLcn3Ex  访问密码 6294

效果如下：

实现方法：

新建一个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;