摘要: 在网上转的时候看到了一篇文章关于透明显示PNG图片的例子,于是突发奇想做了一个桌面泡泡程序,程序做的比简陋没有什么技术可讲,发上来希望给大家带来点启发。高手跳过:主要是通过窗体实现的;见笑了;程序在Delphi 2010可编译通过;下面就是这个程序的源码unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Unit2, MPlayer, ExtCtrls,Unit3, Unit4, Menus, pngimag.. 阅读全文
posted @ 2012-04-16 23:11 BarneyX 阅读(438) 评论(0) 推荐(0) 编辑
摘要: {在网上看到个这个例子感觉还不错,将它移到自己的博客里没事的时候看看;TRect 作用:保存一个矩形的左上角和右下角的坐标值; 声明: type TRect = packed record case integer of 0:(Left, Top, Right, Botton:Integer); 1:(TopLeft, BottonRight:TPoint); end; 由上面的TRect可知,TRect是一个记录类型(TRect),保存了矩形的左上角右下角两个点,4个坐标 或2个点的值。 这个声明是Record类型使用Case子... 阅读全文
posted @ 2012-04-16 22:54 BarneyX 阅读(1766) 评论(0) 推荐(0) 编辑
摘要: //指针的算术运算/*指针可以加上或减去一个整数,指针的这种运算的意义和通常的数值的加减运算的意义是不一样的,惟单元为单位。*/ char a[20]; int *ptr = (int *)a;//强制类型转换并不会改变A的类型; ptr++; //指针PTR的类型是INT*,它指向的类型是INT,它被初始化为指向整形变量A,接下来的第三句中,指针PTR被加了1,它被初始化为指为指向整形变量A //接下来的第三句中,指针PTR被加了1,编译器是这样处理的,它把指针PTR的值加上了SIZEOF(INT),在32位程序中,是被加上了4,因为在32位程序中, //INT占四个... 阅读全文
posted @ 2012-04-16 22:28 BarneyX 阅读(545) 评论(0) 推荐(0) 编辑
摘要: # include <stdio.h>int main(void){ int p;//——这个是一个普通的整形变量; int *p;//首先从P处开始,先与*结合,所以说明P是一个指针,然后再与INT结合,说明指针所 //指向的的内容的类型为INT型,所以P是一个返回整形数据的指针; int p[3]; /* 首先从P处开始,先与[]结合,说明P是一个数组,然后与INT结合,说明数组里的元素是整形的, 所以P是一个由整形数据组成的数组; */ int *p[3];// []比*的优先级高; /* 首先从P处开始,先与[]结合,因为其优先级比*高,所以P是一个数组,然后再与*结合,. 阅读全文
posted @ 2012-04-16 22:27 BarneyX 阅读(255) 评论(0) 推荐(0) 编辑
摘要: {Reset过程}procedure Reset(var F [: File; RecSize: Word ] );{作用: 对于文本文件,Reset过程将以只读方式打开文件,对于类型文件和无类型文件,Reset过程将以可读写方式打开文件procedure Reset(var F [: File; RecSize: Word ] ); F:File 类型变量,可以是任何文件类型; RecSize:文件的大小,这个参数是一个可选参数,只有当F为无类型文件时才可以被指定。如果F为无类型文件,则RecSize指定了在数据传输过程中使用的记录的大小。如果参数RecSize被省略了,则默... 阅读全文
posted @ 2012-04-16 09:53 BarneyX 阅读(579) 评论(0) 推荐(0) 编辑
摘要: unit AssignFileSetting;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TOb... 阅读全文
posted @ 2012-04-15 23:39 BarneyX 阅读(716) 评论(0) 推荐(0) 编辑
摘要: /*经典的数的互换*/# include <stdio.h>//在这个函数当中,因为主函数a, b 和函数huhuan当中的形参是两个不同的地址,在这个里面只能改变一个函数的内容,不能实现//改两个函数的内容;void huhuan(int a, int b){ int t; t = a; a = b; a = t; }//这个函数的只能改变*p 和*q当中的值,在这个函数当中只能改变这个*p 和*q的值,所以也不能实现这个a, b 的内容改写;//void huhuan_1(int *p, int *q){ int *t; t = p; q... 阅读全文
posted @ 2012-03-13 16:22 BarneyX 阅读(278) 评论(0) 推荐(0) 编辑
摘要: unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1... 阅读全文
posted @ 2012-03-03 18:44 BarneyX 阅读(904) 评论(0) 推荐(0) 编辑
摘要: 对于编程人员来讲,熟练掌这个函数在编程时会节省很多麻烦1.Copy:该函数用于从字符串中复制指定范围中的字符。原型:function Copy(S; Index, Count: Integer): string;//参数一:S; 是数据源;//参数二:Index; 数据源中的某一处开始复制;//参数三:Count;这个是要复制字符串的长度(即个数);//返回的是一个字符类型,也就是截取的字符;procedure TForm1.Button1Click(Sender: TObject);const ms = 'Delphi';beginShowMessage(Copy(ms,1, 阅读全文
posted @ 2012-01-28 01:37 BarneyX 阅读(378) 评论(2) 推荐(0) 编辑
摘要: 前面一章我们知道了什么流,而在今天这章里我们就来看看“流”的基本概念及函数声明在我们的Delphi 中,所有的流对象可以的基类为 Tstream 类,其中定义了所有流的共同属性和方法具的的方法和属性如下:TStream 类中定义的属性如下:1.Size: 这个属性以字节的形式返回流中的数据大小;2.Position:这个属性可是控制流中存取指针的位置;这里我们引用万一里的一例子:var mStream: TStream; {声明一个流对象}procedure TForm1.FormCreate(Sender: TObject);begin mStream := TMemoryStream... 阅读全文
posted @ 2012-01-26 23:47 BarneyX 阅读(255) 评论(0) 推荐(1) 编辑