Quitar borde de selección a TStringGrid

[ecfisa]

Hola Catublipas.

Lo que sucede que has copiado mal...

Esta es tu declaración de TStringGrid:

Empezado por Catublipas

Código Delphi [-]
...
type
  TStringGrid = class(Vcl.Grids.TStringGrid);
  TEmpresasForm = class(TForm)
  ...

Sin embargo, la propuesta que te hice era:

Empezado por ecfisa

Código Delphi [-]
...
type
  TStringGrid = class(Grids.TStringGrid)
  protected
    procedure Paint; override;
  end;
  TForm1 = class(TForm)
  ...

Por último te sugerí la reforma del mensaje #6

Creo que el código final debería ser algo como esto:

Código Delphi [-]
...
type
  TStringGrid = class(Vcl.Grids.TStringGrid)
    protected
    procedure Paint; override;
  end;
  TEmpresasForm = class(TForm)
  ...

implementation

procedure TStringGrid.Paint;
var
  R: TRect;
begin
  inherited;
  R := CellRect(Col, Row);
  DrawFocusRect(Canvas.Handle, R);
end;
...

Saludos