摘要：
Function GBCht2Chs(GBStr: String): AnsiString; {GBK繁体转简体} Var len:integer; pGBCHTChar: PChar; pGBCHSChar: PChar; Begin pGBCHTChar := PChar(GBStr); Len := SizeOf(pGBCHTChar); GetMem(pGBCHSChar, Len + 1); ZeroMemory(pGBCHSChar, Len + 1); //GB CHS -> GB CHT LCMapString($804, LCMAP_SIMPLIFIED_CH... 阅读全文
摘要：
32根据单元的值设置样式 解决：procedure .StylesGetContentStyle( Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); begin if ARecord.Values[AItem.Index] = aSomeValue then AStyle := ; end; procedure .StylesGetContentStyle( Sender: TcxCustomGridT... 阅读全文
摘要：
//工程引用此单元就能防止同时出现多个实例unit MultInst;interfaceuses Windows ,Messages, SysUtils, Classes, Forms;implementationconst STR_UNIQUE = '{2BE6D96E-827F-4BF9-B33E-8740412CDE96}'; MI_ACTIVEAPP = 1; {激活应用程序} MI_GETHANDLE = 2; {取得句柄}var iMessageID : Integer; OldWProc : TFNWndProc; MutHandle : THandle; BSM 阅读全文
摘要：
17. 怎样设计多表头的cxGrid？ 解决：cxGrid可以解决如下的表头： --------------------------------- | 说明1 | 说明2 | --------------------------------- | 字段1 | 字段2 | 字段3 | 字段4 | | 字段5 | 字段6 | | 字段7 | 字段8 | 字段9 | 实现这个很简单，你可以直接在上面拖动字段名，拖动时会显示箭头的，放入你想显示的位置就OK了。或者在鼠标右击cxGrid1DBBandedTableView1菜单里的Edit Layout里也可以拖放。但是cxGrid不能实现如下的多表头 阅读全文
摘要：
const AA : arrary[0..4] of byte =(0,1,2,3,4)var BB : arrary[0..4] of byte;begin BB := AA ; {这样是错误的} Move(BB,AA,sizeof(BB)); {正确的}end; 阅读全文
摘要：
这些都不是原创，只是平时收集到资料然后整理的，有些可能百度一下到处都是而且还大同小异也有些不是很好找，现在贴出来希望给那些用到cxGrid的人会有所帮助1. 去掉cxGrid中台头的Box 解决：在tableview1的ptionsview的groupbybox=false;***************************************************************************** 2．统计功能 解决：(1) tableview tableview1的optionsviewfooter=ture 然后在cxGRid1的customize..中的su 阅读全文