关于dbgrideh 对单列进行控制颜色时会闪烁???(20)

procedure Tfrm_inorder_add.DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState);beginif Column.Index in [1, 2, 3, 4,9, 11] then Column.Color := $00D8E9EC;if (Column.Index =9)and (Column.DisplayText='') then begin dbgrideh1.Columns[8].Color:=$00D8E9EC; dbgrideh1.Columns[8].ReadOnly:=true; end ;if (Column.Index =9)and (Column.DisplayText<>'') then begin dbgrideh1.Columns[8].Color:=clWindow; dbgrideh1.Columns[8].ReadOnly:=false; end ;end;

不行，除非你不停的绘制Grid。