请问,怎么在DBGRID中改变CELL内容

最新推荐文章于 2023-03-26 21:41:20 发布

weixin_34399060

最新推荐文章于 2023-03-26 21:41:20 发布

阅读量146

点赞数

本文介绍如何使用 Delphi 在 DBGrid 中自定义单元格内容的显示方式，通过示例代码展示了如何根据字段值改变单元格内的文本。

请问,怎么在DBGRID中改变CELL内容 Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiDB/html/delphi_20061216104516278.html
我写了以下代码:但是还是显示数字
procedure TMakeTicket.DBGridEh3DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
begin
inherited;
with DBGridEh3.Canvas do
case ADOQuery2.FieldByName('status').AsInteger of
1:TextRect(Rect,Rect.Left,((Rect.Bottom-Rect.Top)-TextHeight('处理')) div 2,'处理');
2:TextRect(Rect,Rect.Left,((Rect.Bottom-Rect.Top)-TextHeight('未处理')) div 2,'未处理');
end;
DBGridEh3.DefaultDrawColumnCell(Rect, DataCol, Column, State);
}

去掉inherited试试

procedure TMakeTicket.DBGridEh3DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
begin
inherited;
if Column.FieldName = 'Status' then
begin
with DBGridEh3.Canvas do
begin
FillRect(Rect);
case ADOQuery2.FieldByName('status').AsInteger of
1:TextRect(Rect,Rect.Left,((Rect.Bottom-Rect.Top)-TextHeight('处理')) div 2,'处理');
2:TextRect(Rect,Rect.Left,((Rect.Bottom-Rect.Top)-TextHeight('未处理')) div 2,'未处理');
end;
end else
DBGridEh3.DefaultDrawColumnCell(Rect, DataCol, Column, State);

1:TextRect(Rect,Rect.Left,((Rect.Bottom-Rect.Top)-TextHeight('处理')) div 2,'处理');
2:TextRect(Rect,Rect.Left,((Rect.Bottom-Rect.Top)-TextHeight('未处理')) div 2,'未处理');

============可以简洁点

1:TextOout(Rect.Left, Rect.Top+2,'处理');
2:TextOout(Rect.Left, Rect.Top+2,'未处理');

1:TextOout(Rect.Left+2, Rect.Top+2,'处理');
2:TextOout(Rect.Left+2, Rect.Top+2,'未处理');