随笔分类 - Delphi
Delphi 相关
摘要：//FilterGroup参数解释如下：//FgUnassigned 指定不使用任何的过滤器来过滤数据//fgNone 移去任何的过滤器，让所有的数据都显示出来。这也可以通过设定ADO的Filtered属性值为False来达到//fgPendingRecords 只显示被修改过但尚未更新回数据源的数
阅读全文
摘要：//delphi7 use IdStrings,HTTPApp; /// <summary> /// 解析http 格式数据 application/x-www-form-urlencoded /// </summary> function ParseHttpFormData(const AForm
阅读全文
摘要：use IdHashMessageDigest; function ComputeMD5_Indy9(const InputString: string): string;var MD5: TIdHashMessageDigest5; UTF8Str: UTF8String; // 用于UTF-8编
阅读全文
摘要：为了不带midas.dll 引用了MidasLib 单元，这样中文过滤就得两个字才能过滤出来。比如 like %高% 是过滤不出来的，要like %高深% 经测试，去掉MidasLib ，则正常。带上dll. 不同系统有的引用了dll也是不可以的。最后去拿高版本delphi的misdas.dll就可
阅读全文
摘要：1.rdpRemoteWindowDisplayed(ASender: TObject; vbDisplayed: WordBool; hwnd: POleVariant; windowAttribute: TOleEnum); 这种POleVariant ，看原来接口声明是什么类型。比如这个是句柄
阅读全文
摘要：有部分win11升级打补丁后，如果软件用的是 MS Sans Serif 字体，字体渲染出来整体变小了。实测卸载补丁后就可以了，但是有些电脑环境卸载后还是不可以。 卸载不可以的直接用字体映射方法来解决，映射成 Microsoft YaHei 字体，字体可以随便自己选。去到以下注册表路径找到想要换的字
阅读全文
摘要：使用 Class Helper，在其它单元，可以访问该类的私有字段。方法是加上：with self do 直接写self.也是没有用的，一定要用 with self do 根本原因：作用域解析规则 Delphi 编译器在解析标识符（如字段名）时遵循严格的作用域规则： 类辅助内部的作用域在类辅助方法内
阅读全文
摘要：经测试 delphi7 RealThinClient-5.15 这个版本的接收数据比较大时，偶尔会有接收不完整的情况。 抓包确实是完整的，接收的red 回来的数据是不完整的。不管是解码前的还是解码后的都一样是不完整的，用官方的DEMO也是。 最后是加重试机制来解决，这点做客户端。高版本没有试，后面再
阅读全文
摘要：背景：d10.2安装 FastReport_v6.6.12 其中的 ado老是安装不上。解决：IDE管理员身份运行，编译安装。再手动安装BPL， 可能第一次支提示错误，再安装第二次 bpl就可以了.还有个笨方法：把C盘有安装的BPL都删掉重新安装
阅读全文
摘要：type TBytes = array of Byte; function Str2Bytes(const S: string): TBytes; var AnsiStr: AnsiString; begin if S = '' then begin Result := nil; // 或者设置为长
阅读全文
摘要：if (AItem = cxGrid1DBTableView1cgsl) and (key in [106, 107, 109, 111]) then begin if AEdit <> nil then if AEdit.ClassType = TcxCalcEdit then //如果是计算器
阅读全文
摘要：fastreport 合计 是先收集分析有没有写sum 之类的，所以如果是动态在其他事件里写 sum的话，是认不到的。 要在begin end 里事先创建出来。可以设置为不显示就可以
阅读全文
摘要：{ 0000000为不隐藏或禁止所以驱动器，FFFFFFFF相反。 00000001-A 00000002-B 00000004-C 00000008-D 00000010-E 00000020-F 00000040-G 00000080-H 00000100-I 00000200-J 000004
阅读全文
摘要：1.默认MDI 显示后是有窗体的ICON，要去掉 type TdxTabbedMDITabPropertiesAccess = class(TdxTabbedMDITabProperties) end; procedure TForm1.FormCreate(Sender: TObject);beg
阅读全文
摘要：默认是不支持过滤的，这里需要改到内部的一些源码文件。 先说思路：先把richedit.pas 中的 ConvertRichText IsRichText 开放出来。多加上声明 1.要让列支持过滤需要重载richedit类的 GetSupportedOperations， type TcxRichEd
阅读全文
摘要：1.要安装MYSQL驱动 MySQL ：： 下载连接器/ODBC 版本要选对，不然连不上。 比如要连的是8.0的mysql 安装的是8.4.0的驱动，连不上。也不知道为啥，按道理应该高的兼容低的才对 安装后，去控制面板 =》 管理工具 =》ODBC数据源（32位）看。有 MySQL ODBC 8.0
阅读全文
摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, dxSkinsCore, dxSkinsDefaultPainters, dx
阅读全文
摘要：参考资料将 FocusRect 从虚线更改为实线或更改 FocusRect 的颜色 |DevExpress 支持如何在 TableView 网格中的整个选定/聚焦行周围绘制边框？ |DevExpress 支持 procedure TcxGridTableView.DoCustomDrawCell(A
阅读全文
摘要：cxbuttons.pas function TcxSpeedButtonOptions.NeedDrawParts: Boolean; begin Result := not CanBeFocused and (Transparent or Flat); end; procedure TcxCus
阅读全文
摘要：基类自动释放 窗体变量 PFrmPtr: ^TForm; //继承改窗体的变量地址 不为空 置为nil if Assigned(PFrmPtr) thenPFrmPtr^ := nil;
阅读全文
浙公网安备 33010602011771号