[SOLVED]How to avoid drawing the focused rect on a stringgrid cell?

[kinlion]

In TStringGrid's OnDrawCell event, I can draw anything except erase the focused rect, because it is drawn after that event.
I tried to set Canvas.Pen.Style to psClear in OnPrepareCanvas event, but no use.
My StringGrid Options includes goRowSelect.
 

[wp]

You cannot do it with the standard events. But you can derive a new TStringGrid from the current class and override the DrawFocusRect method to paint nothing. Since this does not affect any properties you can even keep the class name:

Code: Pascal  [Select][+][-]

1. type
2.   TStringGrid = type(Grids.TStringGrid)  
3.   protected
4.     procedure DrawFocusRect(aCol,aRow: Integer; ARect: TRect); override;
5.   end;
6. ...
7. procedure TStringGrid.DrawFocusRect(aCol, aRow: Integer; ARect: TRect);
8. begin
9.   // Do nothing
10. end;

If you only have one string grid in your project you can add this code to the unit in which it is used. Or, if you have several grids, put it into its own unit and add this unit to the *end* of the uses clauses of all units with strings grids. Having the new unit at the end of the uses clause (or to be more precise: after the grids unit) makes it replace the standard TStringGrid.

[EDIT]
howardpc in the following post is right: it should be "class(Grids.TStringGrid)" instead of "type(Grids.TStringGrid)".

[howardpc]

Slip of the pen.
I'm sure wp meant

Code: Pascal  [Select][+][-]

1. type   TStringGrid = class(Grids.TStringGrid)
2.   ...

[kinlion]

Thanks to all.

I haved derived a new class as wp said