Verknüpfung StringGrid

[shmia]

Du musst auch den Parameter State beachten:

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if State = [] then // NICHT Selected, Focused oder Fixed
    with TStringGrid(Sender).Canvas do begin
       if (ACol=1) and (ARow=1) then begin   // <=======
          Brush.Color:= clRed;
          FillRect(Rect);
       end;
    end;
end;

PS: das ist nur eine Teillösung. Die markierte Zeile muss auch angepasst werden.