2005年10月_iteye_3058

浅析Delphi Container库

与Java和C++相比，Delphi对容器的支持实在少得可怜。Java有强大的集合框架，C++更有STL，Delphi有什么呢，不就是TList几个小巧的列表类，而TCollection系列的类更多只是为了可视控件而存在的，真正意义上的容器类几乎没有。一日在Google上随意的敲上Delphi Container字样，没想到竟搜到一个SourceForge的开源项目，它在主页上是这样写的： ...

2005-10-30 15:19:00 71

ListView扩展

在论坛上看一个贴，问能不能在ListView的列表头移动时响应事件，随翻查了ListView的事件，发现竟没有。于是自己动手来写一个。其实要响应这个事件也不算难，关键是了解ListView的结构，ListView的列头其实也是一个窗口，不信用Spy看一下。我们只要获得了这个头的句柄，那它的一举一动便逃不过程序的眼睛了（^ ^）。获得了句柄，再用一个新的窗口过程代替旧的窗口过程，当然这个新的窗口...

2005-10-18 19:03:00 56

Delphi的持久化

在论坛上常见到有帖子问如何拷贝控件的问题。其实Delphi提供了非常好的持久化机制，笔者写了一个类，提供两个方法，一个是将多个控件保存到流中，另一个是从流中读出控件。下面是源代码： unit ComPersist; interface uses Windows, Classes, Controls; type TComPersister = class private FRoot: ...

2005-10-15 16:44:00 67

钩子及其应用（五）

下面就是DLL的源代码了：首先是声明一些共公的数据结构的单元，这个单元在DLL中用，也在程序中用的： unit wdSpyCommon; {******************************************* * brief: 消息Spy用到的数据结构等的声明文件 * autor: linzhenqun * date: <chsdate w:st="on" isrocd...

2005-10-06 21:45:00 88

钩子及其应用（四）

｛三｝简单的消息Spy的实现凡写过一些程序的人，大都用过VS的Spy++工具，非常好用。Delphi也有一个类似的工具叫WinSignt32，说实话，比Spy++可是差远了。这一篇将介绍如何实现一个简单的消息Spy工具，其功能大概类似于Spy++的Spy Message，以此来学习全局钩子的用法。说点题外话，这些知识都是笔者经过实践学习而得来，其间不乏屡遭碰壁者，因此想写出来，帮助有兴趣者更快地...

2005-10-06 21:42:00 89

钩子及其应用（三）

unit wdMacro; {******************************************* * brief: 日志钩子实现宏功能 * autor: linzhenqun * date: <chsdate w:st="on" isrocdate="False" islunardate="False" day="11" month="9" year="2005&

2005-10-06 21:39:00 55

钩子及其应用（二）

｛二｝宏功能的实现我们写程序，常将完成一个特定功能的代码写到一个函数中，以后直接调用便可实现该功能。对于宏，其实也是相同的原理，将一些键盘和鼠标的操作“录制”起来，以后如果要重复这些操作，只需要将这些操作“回放”就行了。许多编辑软件都有宏的功能，比如Word。Delphi也有，按Ctrl+Shift+R进行宏录制，再按Ctrl+Shift+R结束，最后按Ctrl+Shift+P即可回放刚才的输入...

2005-10-06 21:37:00 96

钩子及其应用（一）

作者: linzhenqun(风) 时间: <chsdate w:st="on" isrocdate="False" islunardate="False" day="6" month="10" year="2005">2005-10-6</chsdate> Blog: http://blog.csdn.net/linzhengqun

2005-10-06 21:34:00 78

窗体的构造函数和OnCreate事件

窗体的构造函数和创建事件和OldCreateOrder属性有很大的关系。情况1：如果窗体继承自TForm，且有如下形式： 1. constructor TForm1.Create(AOwner: TComponent); 2. begin 3. inherited; 4. Button1.Caption := '1'; 5. end; 6. 7. procedure TForm1.FormC...

2005-10-01 18:00:00 211

javasogo