Question

有关DELPHI的问题请各位赐教

大家好,我目前用DelPhi开发一个系统,碰到这样一个问题,比方说一笔订单总数量是100PCS,生产了50PCS,还有50PCS在待生产状态,我想把这一笔数据在DBGrid里面变成蓝色,请问那行代码怎么写,以前我记得现在忘了,请各位赐教!谢谢!

Answer 1

可以在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;