stringgrid的onselectcell事件的问题

Question

想在stringgrid的onselectcell事件中在某单元格显示图片，代码如下
procedure Tfrmzst.sgSelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
 var rect:trect;
     tpbmp:tbitmap;
     myc,myr:integer;
begin
 tpbmp:=tbitmap.Create ;
 myc:=acol;
 myr:=arow;
 rect:=sg.CellRect(myc,myr);
 imglst.GetBitmap(16,tpbmp);
 sg.Canvas.Draw(rect.Left+1 ,rect.Top+1 ,tpbmp);
 tpbmp.Free ;
end;但是在运行时单击某单元格时什么都不显示，依稀看到图片极快的闪了一下就消失了，怎么回事？

Answer 1

Grid时刻不停地在重画自己......在OnDrawCell处理吧！