- 博客(9)
- 资源 (1)
- 收藏
- 关注
RSS订阅转载 Delphi中destroy, free, freeAndNil, release用法和区别
1)destroy：虚方法释放内存,在Tobject中声明为virtual,通常是在其子类中override 它，且要加上inherited关键字，才能保证派生类对象正确地被销毁;但destroy一般不能直接用，为什么？当一个对象为nil，我们仍然调用destroy，会产生错误。因为destroy是虚方法,它要根据对象中的头四个字节找到虚拟方法表Vmt的入口地址，从而找到destr
2014-11-16 23:31:13
401
转载 delphi的initialization和finalization
initialization的意思是“设定初值,初始化”，在这个代码区内进行变量的初始化。既然是初始化，是对变量的赋初值，所以它的代码执行优先级很高，在Application.Initialize之前进行，可以说在整个程序运行前执行赋初值的代码。可以对interface内用var关键字声明的全局变量和implementation内用var关键字声明的局部全局变量初始化。变量初始化，
2014-11-16 23:23:57
1715
转载 DELPHI中的键盘操作
#用程序模拟键盘和鼠标键盘 在Windows大行其道的今天，windows界面程序受到广大用户的欢迎。对这些程序的操作不外乎两种，键盘输入控制和鼠标输入控制。有时，对于繁杂的，或重复性的操作，我们能否通过编制程序来代替手工输入，而用程序来模拟键盘及鼠标的输入呢？答案是肯定的。这主要是通过两个API函数来实现的。 下面以Delphi为例来介绍一下如何实现这两个功能。模拟键盘我们用
2014-11-09 21:55:44
1057
转载 Delphi 编写数字签名验证并获取签名信息
[摘要]本文介绍Delphi 编写数字签名验证并获取签名信息，并提供详细的示例代码供参考。一个客户想通过编程实现验证程序自身的数字签名来确保程序的完整性，防范病毒感染以及防止一些无聊人士的修改(通过十六进制编辑器替换一些版权、网址、LOGO..)； 为此我做了一个数字签名验证的小例子，其中也有获取签名者信息的方法，以满足“自验证”的需求。示例图：Window
2014-11-01 15:29:53
3649
转载 Delphi类和组件-TPersistent 类
[摘要]TPresistent 类的定义很简单，但是它的意义却不简单，它在 TObject 的基础上对对象做了进一步的强化，本文介绍Delphi类和组件之TPersistent类。TPersistent 类继承自 TObject 类，在 Delphi 中的定义如下：123456789
2014-10-31 22:50:32
666
转载 Delphi类和组件-TObject浅析
[摘要]Delphi 中的所有类都是从 TObject 继承而来的，都具有 TObject 的所有特性，TObject 是所有类的根类，本文详细介绍TObject。Delphi 版本：Delphi 中的所有类都是从 TObject 继承而来的，都具有 TObject 的所有特性，TObject 是所有类的根类。我们可以在 System 单元中找到 TObject 的定义
2014-10-31 22:48:00
2250
转载 delphi的Tobject类赏析
delphi的Tobject类赏析TObject = class//创建constructor Create;//释放procedure Free;//初始化实列class function InitInstance(Instance: Pointer): TObject;//清除实列procedure CleanupIn
2014-10-31 22:31:02
470
原创 LISTBOX消息
列表框主要用于输入，它允许用户从所列出的表项中进行单项或多项选择，被选择的项呈高亮度显示．列表框具有边框，并且一般带有一个垂直滚动条．列表框分单选列表框和多重选择列表框两种．单选列表框一次只能选择一个列表项，而多重选择列表框可以进行多重选择．对于列表项的选择，应用程序用CreateWindowEx创建列表框控件时，可根据控件的用途在下表中选择部份常数来设定其风格属性(style)。
2014-10-30 16:55:10
447
原创 Delphi : WebBrowser、MSHTML在Delphi中的使用
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> WebBrowser、MSHTML在Delphi中的使用1.初始化和终止化uses ActiveX;initializationOleInitialize(nil);finalizationtry OleUninitialize;exceptend;2.Emp
2014-09-07 01:19:25
787
Delphi编写涂鸦桌面的小程序
2014-08-24
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人