delphi编程生成非矩形窗口

2016-02-19 17:47 4 1 收藏

下面，图老师小编带您去了解一下delphi编程生成非矩形窗口，生活就是不断的发现新事物，get新技能~

【 tulaoshi.com - 编程语言】

　　四四方方的窗体也会变形，利用win32 API函数setwindowrgn就可以将窗口定义为任何形状，以下是将窗口定义为园角矩形的例子：

procedure TPortForm.FormCreate(Sender: TObject);var hr :thandle;beginhr:=createroundrectrgn(0,0,width,height,20,20);//定义园角矩形(win API函数)setwindowrgn(handle,hr,true); //设置园角窗口end;

　　为了使该窗口更好，应在onResize事件处理程序放相同的代码。

来源:http://www.tulaoshi.com/n/20160219/1616063.html

上一篇：我流泪一切自作自受 - QQ图案分组
下一篇： DIV + CSS 入门

看过《delphi编程生成非矩形窗口》的人还看了以下文章更多>>

Delphi 应用编程实例简介

标签： Delphi

1. 控制INI文件几法要利用.INI文件做程序有关数据的存储工作，就需要能读和写.INI文件，所以列了如下方法给大家参考：从.INI文件中获取字符串 var strResult:pchar; begin GetPrivateProfileString( 'windows', // []中标题的名字 'NullPort', // =号前的名字 'NIL', // 如果没有找到字符串时，返回的默认值 strResult, //存...

delphi编程控制壁纸

标签：编程语言网络编程

控制Windows的桌面壁纸是一些看图工具常有的功能，要实现该功能是非常容易的，以下的程序使壁纸换为我们想要的图片，如果THEPCHAR为空，那么就取消壁纸，变为Win默认色彩；但这种方法只是暂时的，在WINDOWS重新启动后还是恢复原来的位图，所以要永久保留还需要对WIN.INI文件进行改写操作，才能保存住我们改动的图片不被替换。但这种暂时性...

Delphi编程实现Ping操作

标签：编程语言网络编程

在Delphi中使用TidIcmpClient控件可以非常简单的实现图形界面的Ping！新建一个工程，命名为 PingGUI.dpr ，窗口命名为“frmPing”，加入如下组件： lstReplies: TListBox; ICMP: TIdIcmpClient; Panel1: TPanel; btnPing: TButton; &nbs...

Delphi中的SQL编程

标签：编程语言网络编程

SQL语言作为关系数据库管理系统中的一种通用的结构查询语言，已经被众多的数据库管理系统所采用，如ORACLE、Sybase、Informix等数据库管理系统，它们都支持SQL 语言。Delphi与使用SQL语言的数据库管理系统兼容，在使用Delphi开发数据库应用程序时，我们可以使用SQL语言编程，支持SQL编程是Delphi的一个重要特征，这也是体现Delphi作为一个...

Delphi图形图像编程

标签：编程语言网络编程

在Delphi中，专门定义了一组对象和部件用以绘制图形，完成一些简单的图像功能。利用这些对象、部件的方法，可以方便地绘制各种常用图形；通过设置它们的属性，能得到不同风格的图形。另外，通过对鼠标事件的定义，可以方便的设计图形绘制程序。本章将介绍以下内容： 1. TCanvas,TPen,TBrush,TColor对象的方法及属性； 2. ...

查看更多精彩>>