高手请指教

Question

假如在stringgrid中的一个cells[2,2]有字符窜'321',怎么将这个格的背景改为clgreen,字符串黑字体正常显示，而且通过stringgrid.cells[2,2]还能返回'321'.

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
begin
stringgrid1.cells[2,2]:='321';
end;procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
   if (ACol=2) and (ARow=2) then
   begin
With StringGrid1 do
begin
  canvas.Brush.Color:= clGreen;
  Canvas.FillRect(Rect);
  Canvas.Font.Color:=clBlack;
  Canvas.TextOut(Rect.Left+2,Rect.Top+2,'321');
end;
   end;
end;