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;本文参与 腾讯云自媒体同步曝光计划，分享自作者个人站点/博客。
原始发表：2015/10/11 ，如有侵权请联系 cloudcommunity@tencent.com 删除
评论
登录后参与评论
推荐阅读
腾讯云开发者
