1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

// Man muss im OnDrawCell die selektierte Zelle selber zeichnen. 
// You have to handle the OnDrawCell event and draw the selected cell yourself. 

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; 
  Rect: TRect; State: TGridDrawState); 
const 
  SelectedColor = Clblue; 
begin 
  if (state = [gdSelected]) then 
    with TStringGrid(Sender), Canvas do 
    begin 
      Brush.Color := SelectedColor; 
      FillRect(Rect); 
      TextRect(Rect, Rect.Left + 2, Rect.Top + 2, Cells[aCol, aRow]); 
    end; 
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; 
  Rect: TRect; State: TGridDrawState); 
var 
  dx: Integer; 
begin 
  with (Sender as TStringGrid) do 
  begin 
    // Don't change color for first Column, first row 
    if (ACol = 0) or (ARow = 0) then 
      Canvas.Brush.Color := clBtnFace 
    else 
    begin 
      case ACol of 
        1: Canvas.Font.Color := clBlack; 
        2: Canvas.Font.Color := clBlue; 
      end; 
      // Draw the Band 
      if ARow mod 2 = 0 then 
        Canvas.Brush.Color := $00E1FFF9 
      else 
        Canvas.Brush.Color := $00FFEBDF; 
      Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, cells[acol, arow]); 
      Canvas.FrameRect(Rect); 
    end; 
  end; 
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

  TMyStringGrid = class(TStringGrid)
    private
    protected
      function CreateEditor: TInplaceEdit; override; 

    public
    end;

....

function TMyStringGrid.CreateEditor: TInplaceEdit;
begin
 Result := inherited CreateEditor;
 TEdit(Result).Color := clRed;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

   private
     MyStringGrid : TMyStringGrid;

....

procedure TForm1.FormCreate(Sender: TObject);
begin
MyStringGrid := TMyStringGrid.Create(Self);
MyStringGrid.Left := 488;
MyStringGrid.Top := 560;
MyStringGrid.Parent := Self;
MyStringGrid.OnDrawCell := StringGrid1DrawCell;
MyStringGrid.Options := MyStringGrid.Options + [goEditing];
end;