Tag

摘要： uses Clipbrd, ShellAPI;var FFileName: array[0..MAX_PATH] of Char; FileNumber,i:Integer; Drop:Cardinal; begin if Clipboard.HasFormat(CF_HDROP ) then be 阅读全文

摘要： function ClearCurrentLine: boolean; const BUFSIZE = 0*0; var nConsoleHandle : Cardinal; lwWritten : Longword; Coord : TCoord; pcsb_info: _CONSOLE_SCRE 阅读全文

摘要： 表格有一个选择列，用来选择数据后。提取选中的记录做某些事，这种是很常见的。 现有以下需求： 右键全选 、反选（支持选择过滤后的数据） 如果全部采取DB感知的方式 ，数据多的时候很卡。测试1000多条就很卡了 解决方案： //改成智能新 cxGridDB.DataController.DataMode 阅读全文

摘要： //存多个数字 例子procedure TForm1.btn1Click(Sender: TObject); var i:integer; A,B,C,d:INTEGER; begin //设计的时候根据使用场景 要存多个数字，每个数字只能占多少 //4个数字 每个数字8bit =1个字节 A := 阅读全文

摘要： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type tmythreadclass = class o 阅读全文

摘要： 通过类名称（字符串）创建类实例 首先要在 initialization 区域注册要创建的类 RegisterClass(TYourClass); 然后在运行期使用如下代码创建 TYourClass 类的实例。 procedure Txxx.xxxx;varcls: TPersistentClass; 阅读全文

摘要： 通常用WaitForCompletion(True) 去等待 如果中途不想要继续接受数据了 有两种方法： 在DataReceived里 //当前请求跳过 TRtcDataClient(sender).Request.Skip; //跳过所有请求 TRtcDataClient(sender).Skip 阅读全文

摘要： procedure TForm1.con1ExecuteComplete(Connection: TADOConnection; RecordsAffected: Integer; const Error: Error; var EventStatus: TEventStatus; const Co 阅读全文

摘要： function CreateEvent( lpEventAttributes: PSecurityAttributes; {安全设置} bManualReset: BOOL; {第一个布尔} bInitialState: BOOL; {第二个布尔} lpName: PWideChar {对象名称} 阅读全文

摘要： 使用默认皮肤相关单元： dxSkinsDefaultPainters //默认皮肤 dxSkinscxPCPainter //要引用这个pagecontrol才有皮肤 dxSkinsdxStatusBarPainter //用引用这个 状态栏才有皮肤 dxSkinsdxBarPainter //菜单 阅读全文