procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState); begin if Table1.FieldByName('姓名').AsString = edit1.text then begin DBGrid1.Canvas.Brush.Color := clYellow; if gdSelected in State then begin DBGrid1.Canvas.Font.Color := clRed; end; DBGrid1.DefaultDrawDataCell(Rect, Field, State); end; end
Field: TField; State: TGridDrawState);
begin
if Table1.FieldByName('姓名').AsString = edit1.text then
begin
DBGrid1.Canvas.Brush.Color := clYellow;
if gdSelected in State then
begin
DBGrid1.Canvas.Font.Color := clRed;
end;
DBGrid1.DefaultDrawDataCell(Rect, Field, State);
end;
end