[Delphi]自定义控件添加图标方法

1. 在资源文件中加入个24*24的BMP图片,命名为控件的类名(全大写包括T) 2. 项目文件中加入对应的 {$R *.dres} 缺省为项目文件同名,自动加入到项目文件(Projrct-View Source)查看) 3. 这个就是设计期使用的资源. 注意bmp文件的扩展名要小写,加入时注意类型 ——————————————&

[控件]7-zip Delphi API

这是老猫整理的一个控件,特此转载,原文地址在此:https://github.com/wang80919/d7zip 官网已经找不到了。 这个地址比较新 https://github.com/zedalaye/d7zip 在这个基础上 融合了 SevenZip.pas BUG修改版 – 20160613 – 堕落恶魔 – 博客园 https://www.cnblogs.com/hs-kill/p/3876160.html 然后再加了一些小的修改。 最后,提供一个比较全面的 例子。 【Delphi

[控件]DevExpress删除TreeList已选择的节点

来源于研究分享,有能起到帮助的就默默的感谢下他吧哈! // 删除TreeList已选择的节点 procedure TreeListDeleteChecked(ATreeList: TcxCustomTreeList); overload; procedure TreeListDeleteChecked(ANode: TcxTreeListNode); overload; procedure TreeListDeleteChecked(ATreeList: TcxCustomTreeList);

[控件]Cxgrid获取分组小计值

最近有个项目用到比较复杂的统计,开始接触DEV,Dev下有个强大的表格那就是Cxgrid了。 项目上用到对分组小计后的值获取。 研究了半天,代码如下:   var i, j: Integer; ASummary: TcxDataSummary; begin inherited; j := 0; for i := 0 to cxGrid1DBTableView1.DataController.RowCount – 1 do begin if cxGrid1DBTableView1.Dat

证书

[控件]Dbgrideh 内容垂直居中的方法

DBgrideh内容在横向上都能直接设置左右对齐,甚至居中,但是唯独却没有设置内容的垂直居中,这在调整了高度后就会很难看,来段代码解决下。 方法如下: procedure Tform1.reflay;  var   Count: integer; begin   for Count:= 0 to DBGridEh1.Columns.Count-1 do   begin    DBGridEh1.Columns[Count].Layout

关于装载teechart2015后一直报错的问题

继续重装后的一堆控件部署问题,删除掉原来的teechart自带版本。 点击安装最新的完整版,但是装上后打开其他程序时不时会出现Cannot load package A, it contains unit…错误。 总得想办法搞掉它,最后发现是安装完fastreport,要重编译下,编译时选择teechart的dcu一起编译。 问题解决!