在单元格中输入数据时更改StringGrid的单元格颜色。Delphi

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  // 根据需要自定义单元格的颜色
  if (ACol = 1) and (ARow > 0) then
  begin
    if StringGrid1.Cells[ACol, ARow] = 'Red' then
      StringGrid1.Canvas.Brush.Color := clRed
    else if StringGrid1.Cells[ACol, ARow] = 'Green' then
      StringGrid1.Canvas.Brush.Color := clGreen
    else if StringGrid1.Cells[ACol, ARow] = 'Blue' then
      StringGrid1.Canvas.Brush.Color := clBlue
    else
      StringGrid1.Canvas.Brush.Color := clWhite;
  end;

  // 绘制单元格
  StringGrid1.Canvas.FillRect(Rect);
  StringGrid1.Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, StringGrid1.Cells[ACol, ARow]);
end;