文档章节

创建异形窗口[2]

涂孟超
 涂孟超
发布于 2014/09/26 15:36
字数 118
阅读 2
收藏 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.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/04/30/1177975.html

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

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

Michael_BJFU
2016/10/12
70
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
3.8K
4
C#WinForm制作异形窗体/控件

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

晨曦之光
2012/03/09
485
0
VC6.0使用 SetLayeredWindowAttributes函数

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

IMGTN
2012/06/13
0
0
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
3.7K
13

没有更多内容

加载失败,请刷新页面

加载更多

下一页

shell-日志脚本小实验

1.查找日志2018-8-15,求得那一分钟访问量最大。 #/bin/bash#from cc#2018-8-15#2018-08-15.log 哪一分钟 访问量 最大for d in `ls /data/nginx/logs/`doif [ -a 2018-08-15...

chencheng-linux
昨天
0
0
Android中的设计模式之状态模式

参考 《设计模式:可复用面向对象软件的基础 》5.8 State 状态 对象行为型模式 《Android源码设计模式解析与实战》第7章 随遇而安--状态模式 意图 允许一个对象在其内部状态改变时改变它的行...

newtrek
昨天
0
0
xshell端 vim没有颜色

说明 使用xshell连接服务器的时候,使用vim打开文档没有颜色 解决方法: 1.在更目录home或者etc下找到vim的配置文件vimrc 2.vim打开它找个坑,添加下面这个东西 set t_Co=256 3.保存退出,就...

杉下
昨天
0
0
spring 资料

spring boot http://www.ityouknow.com/springboot/2016/01/06/spring-boot-quick-start.html

zaolonglei
昨天
2
0
TypeScript基础入门 - 函数 - 简介

转载 TypeScript基础入门 - 函数 - 简介 项目实践仓库 https://github.com/durban89/typescript_demo.gittag: 1.1.6 为了保证后面的学习演示需要安装下ts-node,这样后面的每个操作都能直接...

durban
昨天
0
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部