
控件使用技巧
Delphi老男孩
不离不弃
展开
-
CXGRID动态创建字段的过程
cxGrid实现多表头,在网上也有不少文章。但是总感觉不用着不顺手。结合DBGridEH的多表头实现方法,为了保持两者的兼容(还是个人习惯作祟吧)。主要代码如下:****一、function AddGridColumn(aGrid: TcxGridTableView; aCaption, aField: string; aWidth: integer = 40;aSumKind: string = ‘’; aVisible: Boolean = True; Edt: Boolean = True; M转载 2021-10-14 11:48:48 · 478 阅读 · 0 评论 -
Delphi 生成圆形panel的方法
procedure Tfrm_powergroup.BtnDeleteRecordClick(Sender: TObject);varfhr :Thandle;beginfhr := CreateRoundRectRgn(0, 0, pan_progress.Width -5, pan_progress.height -5, pan_progress.Width-5, pan_progress.Width-5);SetWindowRgn(pan_progress.Handle, fhr, true原创 2021-03-13 22:25:52 · 777 阅读 · 0 评论