源码下载地址：http://yunpan.cn/cFsrRxJLcn3Ex 访问密码 6294
效果如下：
实现方法：
新建一个Delphi工程，在窗体上放置一个image（图象）组件.
用IMAGE控件导入一张图片（图案为异形的轮廓）
将窗体的transparentcolor (颜色透明)设置为true(真)，
Transparent colorvalue 的属性设置为图片底色（可用colorSchemer Studio 取底色RGB）
代码语言：javascript复制procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.TransparentColor:=true;
Form1.TransparentColorValue:=rgb(240,240,240);
end;另外
设置
(1)来隐藏 标题栏
将form的borderStyle设置为 bsNone
(2)为图片设置鼠标按下事件 来让程序可以移动
代码语言：javascript复制procedure TForm1.Image1MouseDown(Sender:TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture; //窗体任意拖动
PostMessage(Self.Handle,WM_SYSCOMMAND,SC_MOVE 1,0);
end;
