随笔分类 -  Delphi 程序编程实例

GDI+ 简单画图
摘要:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X... 阅读全文
posted @ 2010-11-19 17:53 巅枫 阅读(28901) 评论(0) 推荐(0)
无标题栏窗口移动
摘要:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TOb... 阅读全文
posted @ 2010-10-21 22:07 巅枫 阅读(419) 评论(0) 推荐(0)
不规则窗口设计
摘要:本例效果图:新建应用,添加一个PopupMenu和一个Image,代码如下:在编写这个例程(例子程序)的过程中,我明白了不少东西,首先要说的就是几个创建区域的函数,如CreateEllipticRgn,CreateRectRgn..等等这些函数,这些创建区域函数其实还有不少,在这我就不一一列举了,还有不规则窗口设计的原理(通过定制区域函数定制出一个区域,然后用SetWindowRgn(设置窗口区域... 阅读全文
posted @ 2010-10-17 18:11 巅枫 阅读(1777) 评论(0) 推荐(0)