- 博客(35)
- 收藏
- 关注
RSS订阅原创 Thread线程
函数使用线程的Terminate 方法将线程的Terminated 属性设置为True，这时候线程就会开始跳出原来的循环，跳出循环后会将CanFree 属性设置为True，因为DestroyAThread(testThread) 函数会循环检查线程的CanFree属性，如果检查到其为True，那么就说明线程已经结束了循环，结束了执行，就可以调线程的Free方法来释放线程资源了。检查到 Terminated属性设置为True（就是通知它要去结束执行了），就跳出定时执行的循环，结束它的工作，
2024-09-26 16:27:30
455
原创 TDBGridEh的应用
通过设置EvenRowColor和OddRowColor属性，可以轻松改变DBGridEh1的偶数行和奇数行的颜色，例如将偶数行设置为黄色。dbgrdh_NumberAll.Canvas.Font.Color := $000000FF //红色。隔行变色，只需设置DBGridEh1.EvenRowColor :=clCream 这个是变黄色。
2024-09-19 11:41:13
382
原创 实现窗体自动适应屏幕分辨率
需要一个数组事先保存所有控件的原始位置和尺寸。在窗体因为屏幕分辨率的改变而自动调整时，计算的依据依然是不变的原始窗体位置尺寸数据。
2024-09-05 09:36:46
329
原创 多语言版切换
打开工程目录，Lang文件夹的5124，打开文件SZ_.txt(用WPS或Word打开)，然后‘审阅’‘简转繁’，然后将文档中的所有‘微軟雅黑’替换成‘ 微軟正黑體’，将所有的‘GB2312_CHARSET’替换成‘ CHINESEBIG5_CHARSET’
2024-08-30 16:58:32
395
原创 【无标题】
MNQ043JMTU-eyJsaWNlbnNlSWQiOiJNTlEwNDNKTVRVIiwibGljZW5zZWVOYW1lIjoiR1VPIEJJTiIsImFzc2lnbmVlTmFtZSI6IiIsImFzc2lnbmVlRW1haWwiOiIiLCJsaWNlbnNlUmVzdHJpY3Rpb24iOiIiLCJjaGVja0NvbmN1cnJlbnRVc2UiOmZhbHNlLCJwcm9kdWN0cyI6W3siY29kZSI6IklJIiwiZmFsbGJhY2tEYXRlIjoiMjAxO
2024-08-29 13:20:51
403
原创 THashedStringList对象
THashedStringList类中添加了两个TStringHash私有成员，分别用来存放对其子项键名哈希表和键值哈希表。当调用其 IndexOf方法或是IndexOfName方法时，此类会首先检查是否已经为键值或是键名创建哈希表，如果没有，则创建之，否则直接使用哈希算法时行查找。
2024-08-26 16:28:12
304
原创 TApplicationEvents控件的使用方法
在滚动鼠标滚轮时，原意是想让整个页面向下Scroll，但是此时恰巧页面焦点聚焦在Combobox的文本框内，滚动滚轮却是把Combobox内的内容给改变了。
2024-07-31 17:03:39
234
原创 Delphi常用API函数
GetClassInfo 取得WNDCLASS结构（或WNDCLASSEX结构）的一个副本，结构中包含了与指定类有关的信息。ActivateKeyboardLayout 激活一个新的键盘布局。SetMenuItemBitmaps 设置一幅特定位图，令其在指定的菜单条目中使用，代替标准的复选符号（√）CloseEnhMetaFile 关闭指定的增强型图元文件设备场景，并将新建的图元文件返回一个句柄。CreateCaret 根据指定的信息创建一个插入符（光标），并将它选定为指定窗口的默认插入符。
2024-06-21 15:15:23
446
1
原创 Sql Server数据库引擎优化顾问功能
分析刚刚跟踪出的脚本语句（使用“数据库引擎优化顾问”功能）目的： 优化性能，通过优化顾问提出的优化建议来达到目的。
2024-06-19 16:33:13
684
原创 操作 JSON 数据-对象ISuperObject
property S[const path: SOString]: SOString read GetS write PutS; 此函数被一个ISuperObject对象调用，和O[‘username’]不同的是，它返回的是一个SoString，即一个字符串，使用方法 str := jObj.S[‘username’];同理的还有其他几个类似的函数，如I[‘age’]返回整数，B[‘isenable’]返回布尔型，A[‘users’]返回一个TSuperArray数组
2024-06-18 17:33:56
904
原创 SVN-客户端安装
svn这个隐藏目录记录着两项关键信息：工作文件的基准版本和一个本地副本最后更新的时间戳，千万不要手动修改或者删除这个.svn隐藏目录和里面的文件!,否则将会导致你本地的工作拷贝(静态试图)被破坏，无法再进行操作。
2024-06-14 15:55:09
321
原创 SVN-服务器搭建和使用
它是一个自由/开源的版本控制系统，一组文件存放在中心版本库，记录每一次文件和目录的修改，Subversion允许把数据恢复到早期版本，或是检查数据修改的历史，Subversion可以通过网络访问它的版本库，从而使用户在不同的电脑上进行操作。程序员在编写程序的过程中，每个程序员都会生成很多不同的版本，这就需要程序员有效的管理代码，在需要的时候可以迅速，准确取出相应的版本。
2024-06-14 15:48:26
1095
原创 SVN-客户端基础使用
更新本地代码与SVN服务器上最新的版本一致，只要在需要更新的文件夹上点击右键或者在文件下空白处点击右键，选择”SVN Update”
2024-06-14 15:37:45
789
原创 IdTCPClient和IdTCPServer
3 : BoundIP 指定使用IdTCPClient组件的计算机系统的IP地址,也就是说,其 中是空白那么什么样的计算机都可以使用,但如果指定的IP地址为239.126.12.2,那么 就只有IP地址为239.126.12.2的计算机可以使用它.虽然IdTCPClient可以直接使用,它不可以被单独的使用,它必须与相应 的IdTCPServer组件相配合才能发挥特定的作用,当然,如果相应的网络系统中具有这 样的TCP服务器应用,那么IdTCPClient也可以直接与它们进行通讯.
2024-05-07 11:11:04
957
4
原创 procedure of object
也就是说，一般函数和过程必须通过类的实例（对象）来调用，而类过程（类函数）则可以不必通过该类的实例来调用。procedure 指针占4个字节，保存在过程的地址. procedure of object占8个字节，保存过程的地址和类的地址。//一种对象方法的类型。首先：procedure 也是类型,可以理解为过程类型，定义过程的参数结构，而具体的实现可以动态赋值。1、与普通函数相同点：可以像一般的函数和过程一样在类的实例里作为对象方法调用；TMouseEvent是对象的函数指针,也就是对象/类的函数/方法。
2024-04-03 14:09:50
1179
1
原创 多线程的使用
另外，一个很重要的控件对象叫TCanvas，提供了一个Lock方法用于线程的同步，当一个线程使用此控件对象的时候，首先调用这个对象的Lock方法，然后对这个控件进行操作，完毕后再调用Unlock方法，释放对控间的控制权。WIN 98/NT/2000/XP 是个多任务操作系统，也就是：一个进程可以划分为多个线程，每个线程轮流占用CPU 运行时间和资源，或者说，把CPU 时间划成片，每个片分给不同的线程，这样，每个线程轮流的“挂起”和“唤醒”，由于时间片很小，给人的感觉是同时运行的。
2024-04-03 13:54:29
1178
1
原创 cxGrid动态加载分组
使用CXGrid控件时，可以通过以下步骤来为CXGrid的列（TcxCustomGridTableView）创建并设置CxGridColumnSummary对象。在Properties面板中，可以设置CxGridColumnSummary的相关属性，比如Caption、FieldName等。若要进行更高级的定制化配置，可以双击CxGridColumnSummary对象，这样就能跳转到其事件处理程序编辑器。完成所有必要的设置后，运行应用程序，即可看到CxGridColumnSummary的效果。
2024-03-22 16:17:44
1096
1
原创 类（Class）和对象的应用
2.对象即类的实例，是使用构造函数（在Object Pascal中是用关键字constructors标识的，它是一个特殊的类方法，通常是Create）来生成的一个内存块。1.类（Class），是一个包含字段（Field，也称为域）、方法（Method）和属性（Property）（事件（Event）是一种特殊的属性）三种成员的构造体。4.方法则是一些函数和过程。普通方法只有由类实例调用，而类方法可以由类或者类实例调用。5.属性，实际上是一些需要特殊处理的字段的包装，它们的值可以用字段或者方法来存取。
2024-03-22 11:54:22
202
1
原创 cxGrid显示行号
第一种方法：直接双击events中的对应OnCustomDrawIndicatorCell事件代码参考第二种第二种方法：使用封装类，建立储存过程，事件中调用dsDataExport.DataSet:=CDS_DataExport3;CDS_DataExport3.Close; //添加字段前要关闭数据集AddDummyField(CDS_DataExport3,TIntegerField,'Findrow',10); //动态添加字段CDS_DataExport3.Open;CxGridCreate
2024-03-20 20:24:27
467
1
原创 问题-File not “controls.res“
如果用按钮“delete invalid paths”删除无效的路径，Delphi将删除所有带有$（Platform）的路径，而您将必须手动还原它们
2024-03-14 14:22:10
288
1
原创 cxGrid满足查询条件的Cell显示特定的颜色
cxGrid1DBBandedTableView1CustomDrawCell绘图时，满足查询条件的Cell显示特定的颜色。
2024-02-23 11:56:56
301
1
原创 TClientDataset创建fkInternalCalc字段
实现功能：TClientDataset不用手动加字段，可以自动给TClientDataset添加字段，字段来源DataSetProvider；后面是添加的自定义字段。以下Delphi函数可用于将fkInternalCalc添加到TClientDataset。这很有用，因为我可以存储每条记录的一些信息，进行计算或存储临时标记。
2024-02-23 11:48:27
235
1
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人