cxgrid根据单元的值设置样式

最新推荐文章于 2024-05-20 10:07:44 发布

原创最新推荐文章于 2024-05-20 10:07:44 发布 · 216 阅读

0 ·

CC 4.0 BY-SA版权

Delphi 专栏收录该内容

266 篇文章

订阅专栏

本文介绍如何使用Delphi的cxGrid组件来根据不同条件设置单元格样式，包括如何根据字段值设置特定样式，例如当电子邮件字段为空时应用特定样式。

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

procedure .StylesGetContentStyle(
Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
begin
if ARecord.Values[AItem.Index] = aSomeValue then
AStyle := ;
end;
procedure .StylesGetContentStyle(
Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
var
AColumn: TcxCustomGridTableItem;
begin
AColumn := (Sender as TcxGridDBTableView).GetColumnByFieldName('Email');
if VarToStr(ARecord.Values[AColumn.Index]) = '' then
AStyle := cxStyleNullEmail;
end;
==============================================================================
TcxCustomGridTableView.FindItemByName, TcxGridDBTableView.GetColumnByFieldName or
TcxGridDBDataController.GetItemByFieldName
with cxGrid1DBBandedTableView1.DataController do
AValue := Values[FocusedRecordIndex, GetItemByFieldName('SomeFieldName').Index];