摘要:
首先弹出来的下拉过滤列表也是一个form 思路,在不改源代码的情况:hook,捕捉 WM_SHOWWINDOW 消息,通过源码得知窗口类名 为”TcxGridFilterPopup“ 再通过句柄转得到实例,同时在本单元type 一下新的 TcxGridFilterPopup, TcxGridPopu 阅读全文
摘要:
https://learn.microsoft.com/zh-CN/sql/connect/php/constants-microsoft-drivers-for-php-for-sql-server?view=sql-server-2017 TP框架PDO 默认执行语句超时并不是微软档案说的这样 阅读全文
摘要:
忘记是抄谁的了,这里改进了一下。还原后没有clear 并再一次备份。因为还原一次后,如果再还原,会句柄无效的。 unit clipbak; interface uses SysUtils, Classes, Clipbrd, Windows, Contnrs, Dialogs; type TClip 阅读全文
摘要:
//不是过滤DATASET,适合用在下拉数据很多的情况。过滤的必须是下拉有添加的列 procedure cxLookupComboBoxLikeSearchInitPopup(Sender: TObject); var FEdit: TcxLookupComboBox absolute Sender 阅读全文
摘要:
function Like(p1: PChar; l1: Integer; p2: PChar; l2: Integer; percent_char, underline_char, escape_char: Char): Boolean; overload; var c: Char; AEscap 阅读全文
摘要:
function ByteType(const S: string; Index: Integer): TMbcsByteType; // 判断一个字符串中,某个 Char 是单个字母,还是双字节的前一位或后一位。 // mbSingleByte 单字母 // mbLeadByte 双字节第一位 / 阅读全文
摘要:
oleacc.pas {*******************************************************} { } { CodeGear Delphi Runtime Library } { } { File: oleacc.h } { Copyright (c) Mi 阅读全文
摘要:
c - How can I access a variable in a calling application from a dll? - Stack Overflow On NT/XP/2003 etc the first param to CallNextHookEx is ignored. 阅读全文
摘要:
//这种控件就可以 窗口不可以,标题栏是系统绘画的。procedure TForm1.btn1Click(Sender: TObject); var ahdc,ahdc_old, ahdc_new: HDC; ARect:TRect; ahpen:HPEN; ahandle:THandle; h,w 阅读全文
摘要:
//dll code uses // ShareMem, SysUtils, Windows, Math; {$R *.res} function TestString1(Buffer: PChar): PChar; stdcall; var Tmpstr:string; begin try Tmp 阅读全文