Question

delphi dbgrid改变行背景色

procedure TfrmTemp.dbgrdh1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
begin
if dbgrdh1.DataSource.DataSet.FieldByName('Mark').AsString = '未编码物料' then
begin
(Sender as TDBGridEh).Canvas.Brush.Color := clRed;
(Sender as TDBGridEh).DefaultDrawDataCell(Rect, Column.Field, State);
end;

end;
提示错误：
[DCC Error] UFrmTemp.pas(459): E2010 Incompatible types: 'DBGridEh.TGridDrawState' and 'UFrmTemp.TGridDrawState' 怎么回事？

若以下回答无法解决问题，邀请你更新回答

Answer 1

看看USES引用里面，引用的标签里面有相同方法的去掉一个就可以了。或者你用方法的时候指定一下是哪个标签。