上一页 1 2 3 4 5 6 ··· 8 下一页
摘要: 首先弹出来的下拉过滤列表也是一个form 思路,在不改源代码的情况:hook,捕捉 WM_SHOWWINDOW 消息,通过源码得知窗口类名 为”TcxGridFilterPopup“ 再通过句柄转得到实例,同时在本单元type 一下新的 TcxGridFilterPopup, TcxGridPopu 阅读全文
posted @ 2023-12-20 09:09 Tag 阅读(27) 评论(0) 推荐(0) 编辑
摘要: https://learn.microsoft.com/zh-CN/sql/connect/php/constants-microsoft-drivers-for-php-for-sql-server?view=sql-server-2017 TP框架PDO 默认执行语句超时并不是微软档案说的这样 阅读全文
posted @ 2023-12-18 11:41 Tag 阅读(5) 评论(0) 推荐(0) 编辑
摘要: 忘记是抄谁的了,这里改进了一下。还原后没有clear 并再一次备份。因为还原一次后,如果再还原,会句柄无效的。 unit clipbak; interface uses SysUtils, Classes, Clipbrd, Windows, Contnrs, Dialogs; type TClip 阅读全文
posted @ 2023-11-24 09:27 Tag 阅读(40) 评论(0) 推荐(0) 编辑
摘要: //不是过滤DATASET,适合用在下拉数据很多的情况。过滤的必须是下拉有添加的列 procedure cxLookupComboBoxLikeSearchInitPopup(Sender: TObject); var FEdit: TcxLookupComboBox absolute Sender 阅读全文
posted @ 2023-11-19 10:01 Tag 阅读(212) 评论(0) 推荐(0) 编辑
摘要: function Like(p1: PChar; l1: Integer; p2: PChar; l2: Integer; percent_char, underline_char, escape_char: Char): Boolean; overload; var c: Char; AEscap 阅读全文
posted @ 2023-11-02 14:12 Tag 阅读(5) 评论(0) 推荐(0) 编辑
摘要: function ByteType(const S: string; Index: Integer): TMbcsByteType; // 判断一个字符串中,某个 Char 是单个字母,还是双字节的前一位或后一位。 // mbSingleByte 单字母 // mbLeadByte 双字节第一位 / 阅读全文
posted @ 2023-10-18 14:46 Tag 阅读(50) 评论(0) 推荐(0) 编辑
摘要: oleacc.pas {*******************************************************} { } { CodeGear Delphi Runtime Library } { } { File: oleacc.h } { Copyright (c) Mi 阅读全文
posted @ 2023-10-11 17:57 Tag 阅读(84) 评论(0) 推荐(0) 编辑
摘要: 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. 阅读全文
posted @ 2023-10-09 17:29 Tag 阅读(19) 评论(0) 推荐(0) 编辑
摘要: //这种控件就可以 窗口不可以,标题栏是系统绘画的。procedure TForm1.btn1Click(Sender: TObject); var ahdc,ahdc_old, ahdc_new: HDC; ARect:TRect; ahpen:HPEN; ahandle:THandle; h,w 阅读全文
posted @ 2023-10-06 18:18 Tag 阅读(53) 评论(0) 推荐(0) 编辑
摘要: //dll code uses // ShareMem, SysUtils, Windows, Math; {$R *.res} function TestString1(Buffer: PChar): PChar; stdcall; var Tmpstr:string; begin try Tmp 阅读全文
posted @ 2023-10-05 09:56 Tag 阅读(90) 评论(0) 推荐(0) 编辑
上一页 1 2 3 4 5 6 ··· 8 下一页