Hola Catublipas.
Lo que sucede que has copiado mal...
Esta es tu declaración de
TStringGrid:
Cita:
Empezado por Catublipas
Código Delphi [-]
...
type
TStringGrid = class(Vcl.Grids.TStringGrid);
TEmpresasForm = class(TForm)
...
|
Sin embargo, la propuesta que te hice era:
Cita:
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