UC知道有关DELPHI的问题请各位赐教
来源：百度知道 编辑：UC知道 时间：2024/05/16 07:55:40
大家好,我目前用DelPhi开发一个系统,碰到这样一个问题,比方说一笔订单总数量是100PCS,生产了50PCS,还有50PCS在待生产状态,我想把这一笔数据在DBGrid里面变成蓝色,请问那行代码怎么写,以前我记得现在忘了,请各位赐教!谢谢!
可以在DBGrid的DrawColumnCell事件里面控制
uses
StrUtils;
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if AnsiStartsText('张', ADOTable1.FieldByName('name').AsString) then
(Sender as TDBGrid).Canvas.Brush.Color := clRed;
//(Sender as TDBGrid).Canvas.Font.Color := clRed;//如果改字体颜色用这个
(Sender as TDBGrid).DefaultDrawDataCell(Rect, Column.Field, State);
end;