TDrawGrid，3行代码，有关问题何在

TDrawGrid，3行代码，问题何在？

void __fastcall TForm1::DrawGrid1MouseDown(TObject *Sender,

      TMouseButton Button, TShiftState Shift, int X, int Y)

{

    //DrawGrid1->BeginDrag(false);

    DrawGrid1->Canvas->Brush->Color = clBlack;

    TRect Rect = DrawGrid1->CellRect(DrawGrid1->Col, DrawGrid1->Row);

    DrawGrid1->Canvas->TextRect(Rect, Rect.Left, Rect.top, " ");

    //DrawGrid1->Invalidate();


    //if(Button == mbLeft)

    //    MakeColor(X, Y, clBlack);

    //if(Button == mbRight)

    //    MakeColor(X, Y, clWindow);

}

去除了所有无关代码，为什么我的指定的Rect的格子里面不变黑，调试了没反应。
------解决方案--------------------
不是没显示，是显示了又刷新回去了
为什么不写在OnDrawCell里面，反正你也没用那个X和Y

	

DrawGrid1->Canvas->Brush->Color = clBlack;

if( DrawGrid1->Col == ACol && DrawGrid1->Row == ARow )

	DrawGrid1->Canvas->TextRect(Rect, Rect.Left, Rect.top, " ");