各位大大好，我在把d7下开发的一套软体升级到10.1时，点击DBgrid上那个上下箭头图标，会变得闪烁，能解决吗？实在不行，只好把这个图标给去掉了，只是感觉有点可惜，
procedure Tfm_xxhdcx.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin

if adotable1.Sort =Column.FieldName ' ASC' then // Asc order
ImgLst.Draw(DBGrid1.Canvas,Rect.Right - 18,2,1)
else if adotable1.Sort =Column.FieldName ' DESC' then // Des order
ImgLst.Draw(DBGrid1.Canvas,Rect.Right - 18,2,0);
end;