文档章节

创建异形窗口[6]

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


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure Panel1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
  f: Boolean;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Self.Color := clWhite;
  Panel1.ParentBackground := False;
end;

procedure TForm1.Panel1Click(Sender: TObject);
var
  rgn: HRGN;
begin
  f := not f;
  if f then
    rgn := CreateEllipticRgn(0, 0, Panel1.Width, Panel1.Height)
  else
    rgn := CreateRectRgn(0, 0, Panel1.Width, Panel1.Height);

  SetWindowRgn(Panel1.Handle, rgn, True)
end;

end.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/05/01/1178533.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
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
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

没有更多内容

加载失败,请刷新页面

加载更多

下一页

jetbrains系产品IDEA:mac上面提示快捷键设置

原因 由于Mac上面的Ctrl+空格变成输入法切换的快捷键,在使用IDEA的过程中,代码提示很不方便,需要使用option+/这种传统eclipse上面的代码提示快捷键作为主要快捷键。 怎么修改? 移除【opt...

亚林瓜子
30分钟前
0
0
Exclipse 输出结果时换行

System.out.println(f1 + "\n" + d1 + "\n" + d2);

笑丶笑
31分钟前
1
0
怎样治疗标签不能触发onblur事件

I realize this was over a year ago, but it showed up for me in Google while trying to solve this same issue. It seems Chrome does not consider some elements, like body and ancho......

Weijuer
34分钟前
0
0
vue常见库安装

移动设备上的浏览器默认会在用户点击屏幕大约延迟300毫秒后才会触发点击事件,这是为了检查用户是否在做双击。为了能够立即响应用户的点击事件,才有了FastClick。 安装fastclick npm insta...

林夏夕
36分钟前
0
0
kafka 教程(三) kafka Java API 编程

下午写

MrPei
37分钟前
0
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部