procedure TtdpOrderTrackingfrom.BrushGrig;
begin
cxgrdMain.BeginUpdate;
try
//TDevEvents.OnColumnGetDisplayText_int自定义整数格式
cxgrdMainDBBandedTableView1.GetColumnByFieldName('XJYFS').OnGetDisplayText := TDevEvents.OnColumnGetDisplayText_int;
//TDevEvents.OnColumnGetDisplayText_int自定义百分比格式
cxgrdMainDBBandedTableView1.GetColumnByFieldName('DRQXXTL').OnGetDisplayText := TDevEvents.OnColumnGetDisplayText_Perent3;
finally
cxgrdMain.EndUpdate;
end;
end;
Delphi cxgrid格式化列样式
最新推荐文章于 2024-03-19 16:59:13 发布