So, habe jetzt folgende Lösung gefunden:
Code:
procedure fokusVersetzen(position : integer);
begin
frm_simulation.sg_simulation.Col := position;
flagFokus := true;
frm_simulation.sg_simulation.Update;
flagFokus := false;
end; //fokusVersetzen
im OnDrawCell-Ereignis des stringGrids wird dann, wenn flag gesetzt, die
Hintergrundfarbe auf weiß gesetzt und die Zelle nochmal neu gefuellt.
Falls jemand eine schönere Lösung hat, immer her damit!