delphi 实现可移动异形窗体(附项目文件)
2015-10-11 18:41
537 查看
源码下载地址:http://yunpan.cn/cFsrRxJLcn3Ex 访问密码 6294
效果如下:
实现方法:
新建一个Delphi工程,在窗体上放置一个image(图象)组件.
用IMAGE控件导入一张图片(图案为异形的轮廓)
将窗体的transparentcolor (颜色透明)设置为true(真),
Transparent colorvalue 的属性设置为图片底色(可用colorSchemer Studio 取底色RGB)
另外
设置
(1)来隐藏 标题栏
将form的borderStyle设置为 bsNone
(2)为图片设置鼠标按下事件 来让程序可以移动
效果如下:
实现方法:
新建一个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;
相关文章推荐
- C#调用Delphi的dll之详解
- Delphi XE7 开发Android对话框方式
- delphi 精要之学习(一)
- 真正好用的delphi gzip解压代码
- delphi中文件拖入功能的实现
- delphi获取电脑内存使用情况
- Delphi xe移动开发资料
- 《zw版·Halcon-delphi系列原创教程》cgal与opencv,Halcon
- Delphi中initialization和finalization
- Delphi下使用指针的简单总结
- Delphi - 数组和结构体
- Delphi - 字符串 详解
- Delphi - 数组 详解
- [Delphi]Delphi开发的一些技巧
- Delphi中的结构体与类
- 为什么delphi控件前面都有t
- Delphi XE7 学习笔记 StopWatch类
- 一个队列类的实现(比delphi自带的速度快70倍)
- 《zw版·Halcon-delphi系列原创教程》 邮票艺术品自动分类脚本
- 《zw版·Halcon-delphi系列原创教程》 只有2行代码的超市收款单ocr脚本