stringgrid重绘时重影

[秋天之落叶]

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
s: String;
R: TRect;
begin
with StringGrid1 do
begin
Canvas.FillRect(Rect);
S := Cells[ACol,ARow];
R := Rect;
DrawText(Canvas.Handle,PChar(s),Length(s),r,DT_CENTER or DT_SINGLELINE or DT_VCENTER); //文字居中
end;
end;

Canvas.FillRect(Rect)这句不起作用，光标到达单元格时，全是重影。
defaultdrawing：=false后，全部单元格冻结不能操作，也不行。

[日立奔腾浪潮微软松下联想]

Canvas.Brush.Style := bsSolid;
Canvas.Brush.Color := clWhite;
Canvas.FillRect(Rect);

[秋天之落叶]

引用 1 楼 早打大打打核战争 的回复:

Canvas.Brush.Style := bsSolid;
Canvas.Brush.Color := clWhite;
Canvas.FillRect(Rect);

嗯，解决了重影，但光标条中断了。

[秋天之落叶]

看来这个赋值是关键Canvas.Brush.Color := clWhite
我加一个其他颜色的光标条看看能不能解决。