Delphi遍历进程中所有Class的TypeInfo,即便是在implementation中的class或者其他 class的private的子class. 一般普通EXE中的TypeInfo存放在PAGE_EXECUTE_*的内存中,而BPL则存放在PAGE_READ_WRITE的内存中... Read More
posted @ 2015-08-21 20:51
findumars
Views(1104)
Comments(0)
Diggs(0)
VCL存在一些非API消息以供其内部使用，为什么要这样做呢？这要从WM_COMMAND & WM_NOTIFY消息说起，我们说WM_COMMAND消息并不是直接发给实际产生消息的窗体，而是发送到它的父窗体。但是父窗体几乎不可能用通常方法处理这些根本不知道如何处理的消息，于是父窗体把这个消息加上CN_... Read More
posted @ 2015-08-21 20:37
findumars
Views(469)
Comments(0)
Diggs(0)
1. 前提：在深入框架底层以前，先学会使用它做一个大概认识2. 书籍：找正确的书籍，其实网上就有很多3. 工具：grep, windiff, IDE debugger(CallStack窗口等等）, Spy++, TDump, Source Navigator4. 方法：动手5. 状态：搞清文件命名... Read More
posted @ 2015-08-21 20:34
findumars
Views(832)
Comments(0)
Diggs(0)
ddd Read More
posted @ 2015-08-21 20:22
findumars
Views(335)
Comments(0)
Diggs(0)
TBitBtn就是一个例子： 留个爪，值得研究～ Read More
posted @ 2015-08-21 19:09
findumars
Views(583)
Comments(0)
Diggs(0)
IsDelphiHandleFindVCLWindowfunction IsVCLControl(Handle: HWND): Boolean;function FindControl(Handle: HWND): TWinControl;function FindVCLWindow(const P... Read More
posted @ 2015-08-21 18:39
findumars
Views(698)
Comments(0)
Diggs(0)
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Clipbrd;type TForm1 = class(T... Read More
posted @ 2015-08-21 18:33
findumars
Views(400)
Comments(0)
Diggs(0)
一、override 重载type TFigure = class procedure Draw; virtual;//（我的理解是）父类中可以使用父类的，子类中使用子类的。与“四”是有区别的。 end; TRectangle = class(TFigure) procedure... Read More
posted @ 2015-08-21 18:32
findumars
Views(3811)
Comments(0)
Diggs(1)
RTTI需要引用单元TypeInfo GetPropInfo 函数用于获得属性的 RTTI 指针 PPropInfo。它有四种重载形式，后面三种重载的实现都是调用第一种形式。AKinds 参数用于限制属性的类型，如果得到的 PPropInfo 不属于指定的类型，则返回 nil。 function G Read More
posted @ 2015-08-21 18:30
findumars
Views(358)
Comments(0)
Diggs(0)
******************************* * 编 译 错 误 信 息 * *******************************';' not allowed before 'ELSE' ... Read More
posted @ 2015-08-21 18:26
findumars
Views(1379)
Comments(0)
Diggs(0)
以下代码旨在 脱离TXMLDocument 操作 xmlunit Unit3;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, xmldom, XML... Read More
posted @ 2015-08-21 18:25
findumars
Views(942)
Comments(0)
Diggs(0)
wxWidgets初学者导引全目录 PDF版及附件下载 1 前言2 下载、安装wxWidgets3 wxWidgets应用程序初体验4 wxWidgets学习资料及利用方法指导5 用wxSmith进行可视化设计附：学习材料清单 1 前言2 下载、安装wxWidgets3 wxWidgets应用程序初 Read More
posted @ 2015-08-21 18:17
findumars
Views(908)
Comments(0)
Diggs(0)
当ADO开始处理数据后，应用程序必须等到ADO处理完毕之后才可以继续执行。但是除了同步执行方式之外，ADO也提供了异步执行的方式，允许当ADO处理时，应用程序仍然能够先继续执行。而当ADO处理数据完毕之后，ADO会以事件的方式通知应用程序，此时应用程序可以再根据ADO执行的结果来采取相应的动作。使用 Read More
posted @ 2015-08-21 18:16
findumars
Views(3245)
Comments(0)
Diggs(0)
function ExecShowModal(APath: PChar; ACmdShow: Integer; ATimeout: Longword): Integer;var vStartupInfo: TStartupInfo; vProcessInfo: TProcessInformati... Read More
posted @ 2015-08-21 18:13
findumars
Views(450)
Comments(0)
Diggs(0)
在VCL中，关闭程序的主窗体也就意味着程序的主循环结束，主程序自然而然结束。所以在主窗体中使用窗体的关闭函数（Close）即可，如下： procedure TfrmMain.btncloseClick(Sender: TObject); begin Close; end; 在FMX中，由Activi Read More
posted @ 2015-08-21 18:11
findumars
Views(792)
Comments(0)
Diggs(0)
{== D6DLLSynchronizer =================================================}{: This unit handles the D6 synchronize problem in DLLs@author Dr. Peter Below... Read More
posted @ 2015-08-21 18:05
findumars
Views(517)
Comments(0)
Diggs(0)
unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ImgList, ExtCtrls; type TForm2 = class( Read More
posted @ 2015-08-21 18:02
findumars
Views(466)
Comments(0)
Diggs(0)
uses RichEdit;function TextToRtf( // 将文本处理为RTF格式 mText: WideString // 输入文本): WideString; // 返回处理后的RTF文本var I: Integer;begin Result := StringReplace... Read More
posted @ 2015-08-21 17:59
findumars
Views(723)
Comments(0)
Diggs(0)
在Delphi中,Inifiles单元中有一个TStringHash的类，不过它的Value仅支持Integer(其实也不是问题，有其它类型可以将变量变为Pointer)，有点不舒服，今天没事做就把它替换为variant了，其中Key的名称大小写无关，就是为了加快开发速度！ 使用Hashtable, Read More
posted @ 2015-08-21 17:58
findumars
Views(738)
Comments(0)
Diggs(0)
要说灵活性，自然是比不上Delphi自带的覆盖WndProc，或者替换WndProc方法。unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Controls, ... Read More
posted @ 2015-08-21 17:56
findumars
Views(457)
Comments(0)
Diggs(0)
浙公网安备 33010602011771号