在TStringGrid控件里怎么样实现为不同字段设置不同颜色?(急!!!!!!!!!!!!!!!!!)

Question

在TStringGrid控件里怎么样实现为不同字段设置不同颜色,如果不能在TStringGrid实现,请问哪个显示数据的控件可以实现此功能????

Answer 1

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
 with StringGrid1 do
  begin
    if (ACol = 3) and (ARow = 3) then
    begin
      Canvas.Brush.Color := clRed;
      Canvas.FillRect(Rect);
      Canvas.Font.Name := 'Courier New';
      Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, Cells[ACol, ARow]);
    end;
  end;end;