procedure TWinControl.DefaultHandler(var Message); begin if FHandle <> 0 then begin with TMessage(Message) do begin if (Msg = WM_CONTEXTMENU) and (Par Read More
posted @ 2016-02-25 23:39
findumars
Views(908)
Comments(0)
Diggs(0)
定义和创建： TWinControl = class(TControl) private FBrush: TBrush; end; constructor TWinControl.Create(AOwner: TComponent); begin inherited Create(AOwner); Read More
posted @ 2016-02-25 22:47
findumars
Views(397)
Comments(0)
Diggs(0)
先擦除背景： procedure TCustomForm.WMEraseBkgnd(var Message: TWMEraseBkgnd); begin if not IsIconic(Handle) then inherited else begin Message.Msg := WM_ICONE Read More
posted @ 2016-02-25 22:32
findumars
Views(591)
Comments(0)
Diggs(0)
声明如下： TCustomPanel = class(TCustomControl) private FFullRepaint: Boolean; FParentBackgroundSet: Boolean; procedure CMCtl3DChanged(var Message: TMessag Read More
posted @ 2016-02-25 22:14
findumars
Views(517)
Comments(0)
Diggs(0)
我忽然发现：TButton既没有处理WM_PAINT，又没有Paint()或者PaintWindow()，那么它是什么时候被绘制的？ Form1上放2个TButton，然后设置代码： 在Form1第一次显示时，应该会让这两个Button显示。这两个Button应该会处理WM_PAINT并显示。可是完 Read More
posted @ 2016-02-25 21:06
findumars
Views(654)
Comments(0)
Diggs(0)
GetCursorPos/WindowFromPoint/SendMessage (用API函数向Edit框发送字符) GetCursorPos(mPoint); DTWND:=WindowFromPoint(mPoint); SendMessage(dtwnd, WM_IME_CHAR,ord(' Read More
posted @ 2016-02-25 19:17
findumars
Views(902)
Comments(0)
Diggs(0)
SetWindowLong函数介绍 收藏 SetWindowLong函数介绍 SetWindowLong Unicode 函数原型 LONG SetWindowLong(hwnd,nIndex,lNewLong) HWND hwnd; /* handle of window */ int nInde Read More
posted @ 2016-02-25 19:12
findumars
Views(2357)
Comments(0)
Diggs(0)
句柄概念在WINDOWS编程中是一个很重要的概念，在许多地方都扮演着重要的角色。但由此而产生的句柄概念也大同小异，比如：<<Microsoft Windows 3 Developer's Workshop>>(Microsoft Press,by Richard Wilton)一书中句柄的概念是：在 Read More
posted @ 2016-02-25 19:10
findumars
Views(2382)
Comments(0)
Diggs(0)
unit uThreadPool;{ aPool.AddRequest(TMyRequest.Create(RequestParam1, RequestParam2, ...)); }interfaceuses Windows, Classes;// 是否记录日志// {$DEFINE NOLOGS Read More
posted @ 2016-02-25 19:09
findumars
Views(1058)
Comments(0)
Diggs(0)
DELPHI 通過窗口句柄或窗口标题得到进程句柄2009年05月08日 星期五 10:15procedure TForm1.Button1Click(Sender: TObject);varhWindow: HWND; { 窗体句柄 }dwProcessID: DWORD; { 进程 ID }hPr Read More
posted @ 2016-02-25 19:06
findumars
Views(617)
Comments(0)
Diggs(0)
TObject = class //创建 constructor Create; //释放 procedure Free; //初始化实列 class function InitInstance(Instance: Pointer): TObject; //清除实列 procedure Cleanu Read More
posted @ 2016-02-25 19:04
findumars
Views(598)
Comments(0)
Diggs(0)
delphi指针简单入门: 看一个指针用法的例子： 1 var 2 X, Y: Integer; // X and Y 整数类型 3 P: ^Integer; // P 指向整数类型的指针 4 begin 5 X :=17; // 给 X 赋值 6 P := @X; // 把 x的地址赋给p 7 Y Read More
posted @ 2016-02-25 19:03
findumars
Views(5995)
Comments(0)
Diggs(0)
我发现了一篇发表在1999.11.29 b13版的 《令win32应用程序跳入系统层》东南大学 卢威 luwei@126.com 是用vc++嵌汇编做的， 很接近了，可试试 BCB或DELPHI进入Ring0 东南大学卢威1999.12发表在<<计算机世界>>报上的一篇 <<WIN32跳入系统0层> Read More
posted @ 2016-02-25 19:02
findumars
Views(594)
Comments(0)
Diggs(0)
设置PageControl的owndraw属性为TRUE. procedure TForm1.pgc1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean); var cc: Read More
posted @ 2016-02-25 18:59
findumars
Views(506)
Comments(0)
Diggs(0)
Navigation: 数据类型相关 > Delphi 的字符及字符串 > [3] - String 中的秘密 //String 的指针地址及实际的内存地址 var str: string; pstr: PString; pc: PChar; begin {在没有给 str 赋值以前, 既然声明了, Read More
posted @ 2016-02-25 18:54
findumars
Views(464)
Comments(0)
Diggs(0)
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,TypInfo,ObjAuto; type TForm1 = Read More
posted @ 2016-02-25 18:50
findumars
Views(1217)
Comments(0)
Diggs(0)
去年我花了很多时间尝试用DELPHI进行基于XML的WEB应用开发。起初的设想是很美好的，但结果做出来的东西很简陋。一部分原因就在于XML到Object之间的数据绑定实现太麻烦（另一部分是因为对XSLT不熟，学习它花了很多时间）。 之前我一直是用DELPHI提供的XML Data binding来做 Read More
posted @ 2016-02-25 18:48
findumars
Views(1046)
Comments(1)
Diggs(0)
通过崩溃地址找错误行数之Delphi版2009-5-11 17:42:35 来源: 转载 作者:网络 访问：360 次 被顶：2 次 字号：【大 中 小】核心提示：什么是 MAP 文件？简单地讲， MAP 文件是程序的全局符号、源文件和代码行号信息的唯一的文本表示方法，它可以在任何地方、任何时候使用 Read More
posted @ 2016-02-25 18:47
findumars
Views(603)
Comments(0)
Diggs(0)
在delphi中，数据集是最常用数据存取方式。因此，必须建立JSON与TDataSet之间的互转关系，实现数据之间通讯与转换。值得注意的是，这只是普通的TDataset与JSON之间转换，由于CDS包含了Delta数据包，其数据格式远比普通的TDataset更复杂。数据集字段信息，是一个完整的字典信 Read More
posted @ 2016-02-25 18:45
findumars
Views(1231)
Comments(0)
Diggs(0)
在delphi中，数据集是最常用数据存取方式。因此，必须建立JSON与TDataSet之间的互转关系，实现数据之间通讯与转换。值得注意的是，这只是普通的TDataset与JSON之间转换，由于CDS包含了Delta数据包，其数据格式远比普通的TDataset更复杂。 数据集字段信息，是一个完整的字典 Read More
posted @ 2016-02-25 18:44
findumars
Views(10139)
Comments(0)
Diggs(0)
浙公网安备 33010602011771号