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);
[代码] 回车移动焦点
在当前焦点按下回车自动移动到下移控件。 procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = 13 then begin keybd_event(VK_TAB,0,KEYEVENTF_EXTENDEDKEY,0); //按下 keybd_event(VK_TAB,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0); /
[控件]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一起编译。 问题解决！