|
||
|
摘要：
<SCRIPT LANGUAGE="javascript"> <!-- window.open ('page.html', 'newwindow', 'height=100, width=400, top=0, left=0, toolbar=no, menubar=no, scrollbars=no, resizable=no,location=n o, status=no') //这句要写成一行 --> </SCRIPT> 参数解释： <SCRIPT LANGUAGE=" 阅读全文
posted @ 2011-07-14 13:34 ╰★张志峰★╮ 阅读(1856) 评论(0) 推荐(0) 编辑
摘要：
1、运行mapx.v5.02.19安装包下的setup.exe 安装mapx5.0 安装完成后将解压mapx5crack.rar将破解文件拷贝到mapx安装目录下。2、在mapx5.0的安装目录下创建一个Maps文件夹。3、运行mapx安装目录下的GeoDictionaryManager50.exe 文件，单击...这样就能自动在maps文件夹下生成Geodict.dct 文件。4、启动delphi7.0 ，Component---Improt ActiveX 找到Mapinfo MapX V5(Version 5.0) ，单击install 安装 。5、这样将可以在ActiveX标签内看到 阅读全文
posted @ 2011-07-13 18:19 ╰★张志峰★╮ 阅读(1510) 评论(0) 推荐(0) 编辑
摘要：
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;type //定义一个事件格式，要传参数的格式 后面必须要加上of object TeacherArgnyEvent = procedure(ErrorCount: Integer) of object;typeTTeacher = class(TObject)private FStudentErrorCount: Integer; FOnTeacherArngy: 阅读全文
posted @ 2011-07-13 10:55 ╰★张志峰★╮ 阅读(612) 评论(0) 推荐(0) 编辑
摘要：
如何为对象进行复制呢类增加一个Assign方法，以进行对象间的复制。例如修改以上的TExample类：typeTExample = classMember1 : Integer;Member2 : Char;publicprocedure Assign(Src : TExample);end;实现该类的Assign方法如下：procedure TExample.Assign(Src: TExample);beginMember1 := Src.Member1;Member2 := Src.Member2;end;如此便可以进行TExample类实例对象间的复制varA, B : TExampl 阅读全文
posted @ 2011-07-13 09:50 ╰★张志峰★╮ 阅读(956) 评论(0) 推荐(0) 编辑
摘要：
举例Application: TAPPlication;构建顺序： 1、构造函数是先继承父类的，初始化父类的成员通过Inherited。 2、析构函数是先释放本对象的，然后在释放父类的成员。sconstructor TApplication.Create(AOwner: TComponent);var P: PChar; ModuleName: array[0..255] of Char;begin inherited Create(AOwner); if not Assigned(Classes.ApplicationHandleException) then Classes.Applica 阅读全文
posted @ 2011-07-12 14:42 ╰★张志峰★╮ 阅读(1825) 评论(0) 推荐(0) 编辑
摘要：
program WindowDemo;uses Windows, Messages;// 窗口函数，窗口接到消息时被Windows所调用function WindowProc(hwnd : HWND; uMsg : Cardinal; wParam : WPARAM;lParam : LPARAM) : LResult; stdcall;beginResult := 0;case uMsg of// 关闭窗口消息，当用户关闭窗口后，通知主消息循环结束程序WM_CLOSE : PostMessage(hwnd, WM_QUIT, 0, 0);// 鼠标左键按下消息WM_LBUTTONDOWN : 阅读全文
posted @ 2011-07-12 12:14 ╰★张志峰★╮ 阅读(581) 评论(0) 推荐(0) 编辑
摘要：
在TObject类中，有一个Dispatch()方法和一个DefaultHandler()方法，它们都是与消息分发机制相关的。Dispatch()负责将特定的消息分发给合适的消息处理函数。首先它会在对象本身类型的类中寻找该消息的处理函数，如果找到，则调用它；如果没有找到而该类覆盖了TObject的DefaultHandler()，则调用该类的DefaultHandler()；如果两者都不存在，则继续在其基类中寻找，直至寻找到TObject这一层，而TObject已经提供了默认的DefaultHandler()方法。unit Unit_MessageDispatch;interface uses 阅读全文
posted @ 2011-07-12 11:02 ╰★张志峰★╮ 阅读(2286) 评论(0) 推荐(1) 编辑
摘要：
祛痘的15个良好习惯 1、每天八杯水。清早没有进食前一定要喝一大杯水，可以清肠胃。（相信很多美眉们是知道的,问题是做不做得到。） 2、每天一便。坚持养好良好习惯，排毒，必要时可吃香蕉调理一下。 3、切忌熬夜。熬夜是美肌的最大天敌。 4、洗面的时候，要彻底洗净，不要有残留的化妆品 5、少玩电脑，手机不可以开机放床头，有辐射，对皮肤影响厉害。 6、不可以用手挤痘痘，任其自己脱落，这样不易留痕。 7、床套，枕头巾要定期清洗，否则会有很多螨虫滋生，睡觉的时候很易感染。 8、最好在十一点前睡觉。睡前不要吃宵夜。 9、上火的东西尽量少吃。 10、护肤品不要乱用，最好用一系列的产品，要了解自己是属于什么样的 阅读全文
posted @ 2011-07-11 17:24 ╰★张志峰★╮ 阅读(244) 评论(0) 推荐(0) 编辑
摘要：
Integer -2147483648..2147483647 signed 32-bit Cardinal 0..4294967295 unsigned 32-bit Shortint -128..127 signed 8-bit Smallint -32768..32767 signed 16-bit Longint -2147483648..2147483647 signed 32-bit Int64 -2^63..2^63? signed 64-bit Byte 0..255 unsigned 8-bit Word 0..65535 unsigned 16-bit Longword 0 阅读全文
posted @ 2011-07-11 16:32 ╰★张志峰★╮ 阅读(2761) 评论(0) 推荐(0) 编辑
摘要：
A抛出的异常，会被B所设的try…except所捕获。一旦捕获到异常，就不再执行之后的敏感代码，而是立刻跳至except块执行错误处理，处理完成后再继续执行整个try块之后的代码。程序流程的控制权被留在了函数B。如果不喜欢自己收拾垃圾，因而在B中并没有预设try…except块的话，则异常会被继续抛给B的调用者，而如果B的调用者同样不负责任，则异常会被继续像踢足球一样被踢给更上层的调用者，依此类推。不过，不用担心，我们有一个大管家，大家都不要的烫手山芋，它会帮我们收拾，那就是——VCL（Delphi的应用程序框架）。例如：有时程序不严谨报"is not a valid integer 阅读全文
posted @ 2011-07-11 14:27 ╰★张志峰★╮ 阅读(417) 评论(0) 推荐(0) 编辑 |
||