- 博客(12)
- 资源 (30)
- 收藏
- 关注
原创 类事件栗子
TonMsg = procedure(s: string) of object; Tman = class private fAge: integer; fonMsg: TonMsg; procedure setFage(iAge: integer); published property onMsg: TonMsg read fonMsg write
2013-10-30 21:02:56 549
原创 类事件
TcusCls = class private FonEvent: TNotifyEvent; published property onMsg: TNotifyEvent read FonEvent write FonEvent; public procedure Cusevent(Sender: TObject); end;procedure T
2013-10-30 13:55:08 783
转载 类引用类型
类引用类型声明 以上讲到的类类型,一般不能直接对类类型操作,而只能对类的实例即对象操作。只有类方法以及类的构造和析构可以直接作用于类本身。那么类引用类型是一种什么样的数据类型呢?类引用类型实际上就是指向某种类类型的指针,用这个指针可以引用任何同类型的类。 类引用类型的声明语法如下: Type TClassRef=Class of Tobject; 上例中,声明了
2013-10-29 23:56:45 1086
转载 隐藏任务栏程序图标一例
procedure TMainForm.FormShow(Sender: TObject); var hwndOwner: HWnd; begin hwndOwner := GetWindow(Handle, GW_OWNER); ShowWindow(hwndOwner, SW_HIDE); // For Windows 2000, additionally call
2013-10-28 20:48:02 690
原创 创建文件2
var Buf: TStringList; i: Integer; S, s1, sName, sExt: AnsiString;begin sExt := '.txt'; sName := 'NewFile'; s := sName + sExt; i := 0; try Buf := TStringList.Create; if FileExi
2013-10-24 21:48:34 528
原创 创建文件1
var Buf: TStringList; i: Integer; S, s1, sName, sExt: AnsiString;begin sExt := '.txt'; sName := '新建文本文件'; s := sName + sExt; i := 1; try Buf := TStringList.Create; if FileExis
2013-10-23 23:56:22 625
原创 多线程临界区Demo
var iCount: integer = 0; iThread: integer = 0; //线程计数 THreadID: Cardinal; CS: TRTLCriticalSection; //线程临界区function myThreaFunc(p: Pointer): DWORD; stdcall;var i: Integer;begin inc(i
2013-10-21 23:41:43 812
转载 使用override需要注意的地方
使用override需要注意的地方 在override时,如果override的是procedure,则加上关键字inherited; 就会执行父类同名procedure的所有过程,然后再执行子类中特有的过程。如果override的是function则不会执行父类中同名function的内容
2013-10-16 01:26:29 945
原创 Class Demo [输出文字到桌面]
type TcustCls = class private Fx, Fy: Integer; Fs: string; public procedure outPut(x, y: Cardinal; s: string); end;procedure Tcustcls.outPut(x, y: Cardinal; s: string);var cvs
2013-10-13 13:37:40 799
原创 Class Demo
TcustCls = class private Fx, Fy: Integer; Fs: string; public procedure outPut(x, y: Integer; s: string); end;var Form1: TForm1;implementation{$R *.dfm}procedure Tcustcls.o
2013-10-11 22:49:17 611
原创 指定程序窗体置顶
var hform: Cardinal;begin hForm := FindWindow('SciCalc', nil); //计算器 if hform <> 0 then //计算器是否启动 begin if IsIconic(hform) then //是否最小化 begin SetFor
2013-10-06 00:14:34 1031
原创 数组赋值
//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; //CopyMemory(@a2[0], @a1[0], Length(a1));
2013-10-05 23:46:51 651
TMS Component Pack 5.7.1.0 Full Source 安装版
2010-10-02
DELPHI全掌握(万一先生的博客)
2009-07-05
PASCAL精要(编程技巧)
2009-07-05
API函数的中文帮助文件
2009-07-05
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人