Delphi 获取Grid列属性或列数据

最新推荐文章于 2025-05-19 15:27:55 发布

转载最新推荐文章于 2025-05-19 15:27:55 发布 · 1k 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/su1643/p/6652379.html

本文介绍如何使用Delphi中的TCXGrid组件通过自定义单元格的颜色来增强表格视图的表现力。具体实现中，根据表格列gend_property13的值决定字体颜色为蓝色还是黑色。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

概念

TcxCustomGridTableView：表格

TcxGridDBColumn：表格列

TcxGridTableDataCellViewInfo：数据集

实例1：表格列新增颜色

procedure Tfrm_ICLYMT01.grd_detDBTableView1movd_partCustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
  col: TcxGridDBColumn;
begin
  inherited;
  //工具类物料 颜色
  if AViewInfo.Selected then exit;
  col := GetColumnByName(grd_det, 'gend_property13');
  if (AViewInfo.GridRecord.Values[col.Index] = 'Y') then
    begin
      ACanvas.Font.Color := clblue;
      if not movd_det.IsEmpty then Fset := true;
    end
  else
    ACanvas.Font.Color := clBlack; 

end;