自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

原创 类事件栗子

TonMsg = procedure(s: string) of object; Tman = class private fAge: integer; fonMsg: TonMsg; procedure setFage(iAge: integer); pub...

2013-10-30 21:02:56

阅读数 445

评论数 0

原创 类事件

TcusCls = class private FonEvent: TNotifyEvent; published property onMsg: TNotifyEvent read FonEvent write FonEvent; public proce...

2013-10-30 13:55:08

阅读数 590

评论数 0

转载 类引用类型

类引用类型声明  以上讲到的类类型,一般不能直接对类类型操作,而只能对类的实例即对象操作。只有类方法以及类的构造和析构可以直接作用于类本身。那么类引用类型是一种什么样的数据类型呢?类引用类型实际上就是指向某种类类型的指针,用这个指针可以引用任何同类型的类。      类引用类型的声明语法如下:...

2013-10-29 23:56:45

阅读数 695

评论数 0

转载 隐藏任务栏程序图标一例

procedure TMainForm.FormShow(Sender: TObject); var hwndOwner: HWnd; begin hwndOwner := GetWindow(Handle, GW_OWNER); ShowWindow(hwndOwner, ...

2013-10-28 20:48:02

阅读数 538

评论数 0

原创 创建文件2

var Buf: TStringList; i: Integer; S, s1, sName, sExt: AnsiString; begin sExt := '.txt'; sName := 'NewFile'; s := sName + sExt; i := 0; ...

2013-10-24 21:48:34

阅读数 418

评论数 0

原创 创建文件1

var Buf: TStringList; i: Integer; S, s1, sName, sExt: AnsiString; begin sExt := '.txt'; sName := '新建文本文件'; s := sName + sExt; i := 1; ...

2013-10-23 23:56:22

阅读数 519

评论数 0

原创 多线程临界区Demo

var iCount: integer = 0; iThread: integer = 0; //线程计数 THreadID: Cardinal; CS: TRTLCriticalSection; //线程临界区 function myThreaFunc(p: Pointe...

2013-10-21 23:41:43

阅读数 693

评论数 0

转载 使用override需要注意的地方

使用override需要注意的地方       在override时,如果override的是procedure,则加上关键字inherited; 就会执行父类同名procedure的所有过程,然后再执行子类中特有的过程。如果override的是function则不会执行父类中同名fun...

2013-10-16 01:26:29

阅读数 613

评论数 0

原创 Class Demo [输出文字到桌面]

type TcustCls = class private Fx, Fy: Integer; Fs: string; public procedure outPut(x, y: Cardinal; s: string); end; procedure Tc...

2013-10-13 13:37:40

阅读数 629

评论数 0

原创 Class Demo

TcustCls = class private Fx, Fy: Integer; Fs: string; public procedure outPut(x, y: Integer; s: string); end; var Form1: TForm1; ...

2013-10-11 22:49:17

阅读数 438

评论数 0

原创 指定程序窗体置顶

var hform: Cardinal; begin hForm := FindWindow('SciCalc', nil); //计算器 if hform <> 0 then //计算器是否启动 begin if IsIco...

2013-10-06 00:14:34

阅读数 678

评论数 0

原创 数组赋值

// var a1,a2:array[0..5]of integer; i:integer; begin for i:=Low(a1) to High(a1) do a1[i]:=i; Move(a1,a2,SizeOf(a1)); a1[3]:=255...

2013-10-05 23:46:51

阅读数 513

评论数 0

提示
确定要删除当前文章?
取消 删除