文档章节

创建异形窗口[2]

涂孟超
 涂孟超
发布于 2014/09/26 15:36
字数 118
阅读 2
收藏 0
点赞 0
评论 0
本例效果图:


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormDblClick(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.Caption := '创建';
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  pts: array[0..3] of TPoint = (
    (x:10; y:40),
    (x:46; y:120),
    (x:82; y:40),
    (x:46; y:10)
  );
var
  rgn: HRGN;
begin
  rgn := CreatePolygonRgn(pts, Length(pts), 1); {1:ALTERNATE; 2:WINDING}
  SetWindowRgn(Handle, rgn, True);
end;

procedure TForm1.FormDblClick(Sender: TObject);
begin
  Close;
end;

end.

 
 
 
 
 

 

 

  

© 著作权归作者所有

共有 人打赏支持
涂孟超
粉丝 12
博文 2004
码字总数 14107
作品 0
深圳
程序员
[win32] 实现窗口阴影的3种方法

windows开发中经常用DUI方式进行绘制,要自己处理窗口的全部绘制任务,包括阴影。那么就面临一个问题:阴影窗口是半透明窗口;这就意味着需要使用Layer窗口来绘制阴影,接下来就有了一个比较...

Michael_BJFU ⋅ 2016/10/12 ⋅ 0

桌面 UI 框架 Lomox 新版更新,配置增强

修改点: 1.配置增强: [cfg] url=http://www.baidu.com //如果指定url则从url启动,如果没有启动则默认在自己resources 目录下面找 main.lx打包资源 或index.html 或者 main.html title=ht...

小东111 ⋅ 2014/04/26 ⋅ 4

C#WinForm制作异形窗体/控件

制作异形窗体或控件的思路一般都是想办法生成一个region,然后设置给指定的窗口或控件。生成region的方法有很多,最常用的就是从一幅图片生成,把该图片中的透明色部分“抠”掉,剩下的部分作...

晨曦之光 ⋅ 2012/03/09 ⋅ 0

VC6.0使用 SetLayeredWindowAttributes函数

USER32.DLL SetLayeredWindowAttributes函数 SetLayeredWindowAttributes函数: hwnd是透明窗体的句柄, crKey为颜色值, bAlpha是透明度,取值范围是[0,255], dwFlags是透明方式,可以取两个...

IMGTN ⋅ 2012/06/13 ⋅ 0

MFC中无边框窗口的拖动

MFC中无边框窗口的拖动 void CXXXXDialog::OnLButtonDown(UINT nFlags, CPoint point) { PostMessage(WM_NCLBUTTONDOWN, HTCAPTION, MAKELPARAM(point.x, point.y)); } 要记得添加消息映射,......

IMGTN ⋅ 2012/06/14 ⋅ 4

Lomox 0.7.0.4 更新版本发布,GUI 开发框架

Lomox 0.7.0.4 更新版本发布,更换 qt5 webkit 跑分 399。更新日志: lomox.dll 0.7.0.4 (KeoJam) 1.QT升级到QT5版本,由于QT4和QT5类库不同,不能再用QT4进行编译 2.bugfix 3.增加了系统托盘...

小东111 ⋅ 2015/06/01 ⋅ 13

桌面UI框架 GUI开发框架--LomoX

本框架基于qtwebkit,用于跨平台桌面web ui,轻松在web实现桌面程序。 只要你懂得html js css 构建一个简单的桌面程序不再是一件难事。 异形窗体几行代码解决。不用为了一些图像的专业知识而...

小东111 ⋅ 2012/05/18 ⋅ 11

google-gadget入门

一、什么是google-gadget 1. google-gadget:google的桌面小应用 2. 一般窗口不大,看起来很炫(窗口不同区域可设置不同透明度),可以随意移动,叠放,可以显示在普通应用之上(置顶) 3. 想想...

learningloong ⋅ 2010/09/24 ⋅ 0

夏普美人尖AQUOS S2争议中圈粉,美人尖手机魅力何在?

近日,夏普手机官微发布了一条微博,配图内容为媒体大咖对夏普美人尖AQUOS S2的多角度评价,微博一经发布便引来不少围观。 媒体大咖实名为夏普S2背书,意味着什么? 老实说,笔者纵横手机行业...

hexiaini235 ⋅ 2017/08/23 ⋅ 0

DataV数据可视化功能特性

关于使用DataV制作实时销售数据可视化大屏的详细教程: 使用DataV制作实时销售数据可视化大屏 (本课程可以帮助数据分析师学习数据可视化大屏的制作,包括制作的方法、设计原则等基础知识,并...

mcy0425 ⋅ 03/08 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

那些证书相关的玩意儿(SSL,X.509,PEM,DER,CRT,CER,KEY,CSR,P12等)

之前没接触过证书加密的话,对证书相关的这些概念真是感觉挺棘手的,因为一下子来了一大堆新名词,看起来像是另一个领域的东西,而不是我们所熟悉的编程领域的那些东西,起码我个人感觉如此,且很长...

颖辉小居 ⋅ 21分钟前 ⋅ 0

利用有限制通配符提升API灵活性(28)

1、参数化类型是不可变的 List<String> 不是List<Object>的子类,但是二者是有联系的 利用有限制的通配符类型处理类似情况 List<? extends Object>(生产者) Collection<? super E>(消费者......

职业搬砖20年 ⋅ 27分钟前 ⋅ 0

ssm框架 +bootstrap分页

这里有两种方式 方式一:自己写分页 方式二:使用插件PageHelper 1.自己写分页 1.1 效果 1.2 实现过程 1.2.1 创建分页公共类 //---------------------------1.属性-------------------------...

Lucky_Me ⋅ 34分钟前 ⋅ 0

Istio

helm template install/kubernetes/helm/istio --name istio --namespace istio-system > $HOME/istio.yaml after $ kubectl create namespace istio-system$ kubectl create -f $HOME/ist......

openthings ⋅ 34分钟前 ⋅ 0

内核线程、轻量级进程、用户线程

线程与进程概念 在现代操作系统中,进程支持多线程。 进程是资源管理的最小单元; 线程是程序执行的最小单元。 即线程作为调度和分配的基本单位,进程作为资源分配的基本单位 一个进程的组成...

117 ⋅ 39分钟前 ⋅ 0

elasticsearch2.4.6升级为elasticsearch-5.5.0的经历

将elasticsearch-5.5.0 中的配置 path.data 指向原来的数据路径 即 path.data: /usr/local/src/elasticsearch-2.4.6/data 注意: elasticsearch-5.5.0 需要将jdk版本升级到1.8...

晨猫 ⋅ 40分钟前 ⋅ 1

lvm讲解 磁盘故障小案例

1

oschina130111 ⋅ 44分钟前 ⋅ 0

那些提升开发人员工作效率的在线工具

本文转载自公众号 Hollis 作为一个Java开发人员,经常要和各种各样的工具打交道,除了我们常用的IDE工具以外,其实还有很多工具是我们在日常开发及学习过程中要经常使用到的。 Hollis偏爱使用...

时刻在奔跑 ⋅ 56分钟前 ⋅ 0

restful风格 实现DELETE PUT请求 的web.xml的配置

import org.springframework.beans.factory.annotation.Autowired; import org.springframework.http.HttpStatus; import org.springframework.http.ResponseEntity; import org.springframe......

泉天下 ⋅ 今天 ⋅ 0

Shell数组

Shell数组 Shell在编程方面比Windows批处理强大很多,无论是在循环、运算。 bash支持一维数组(不支持多维数组),并且没有限定数组的大小。类似与C语言,数组元素的下标由0开始编号。获取数...

蜗牛奔跑 ⋅ 今天 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部