StringGrid: Focus entfernen

[shmia]

Zum Entfernen der Selektion eines StringGrids oder DrawGrids dient folgende Procedure.
Wer sich darunter nichts vorstellen, siehe Anhang.

Delphi-Quellcode:

type
   TCrackedGrid = class(TCustomGrid)
   end;

procedure HideGridSelection(const grid:TCustomGrid);
const
  noSelection:TGridRect = (Left:-1; Top:-1; Right:-1; Bottom:-1);
begin
  TCrackedGrid(grid).Selection := noSelection;
end;