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:

procedure TticketOverview.ticketListingDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
var mcol, mrow: integer;
begin

      //fett nur für Zellen in der 2ten Spalte
      if (acol = 1) then
      begin
         //berührte Zelle herausfinden
         ticketlisting.MouseToCell(mouse.CursorPos.x, mouse.CursorPos.y, mCol, mRow);

         //debug
         label1.caption := inttostr(mcol) + '/' + inttostr(mrow);

         //nur, wenn die Maus die aktuelle Zelle berührt
         if (mcol = acol) and (mrow = arow) then
         begin
            with (Sender as TStringGrid) do
            begin
               Canvas.Font.Style := Canvas.Font.Style + [fsBold]; //fett zeichnen
               Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, cells[mCol, mRow]);
            end;
         end;
      end;
end;					

1:
2:
3:
4:
5:

procedure TticketOverview.ticketListingMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
   ticketListing.repaint;
end;					

1:
2:
3:
4:

 Var p:Tpoint;
...
    p:=StringGrid1.ScreenToClient(mouse.CursorPos);
    StringGrid1.MouseToCell(p.x,p.y, mCol, mRow);					

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:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:

type
  TGridhack=class(TStringGrid);

  TForm1 = class(TForm)
  ...
  private
    { Private-Deklarationen }
    FMouseCol,FMouseRow:integer;
...

procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState;X, Y: Integer);
Var Acol,aRow:integer;
begin
  with sender as TStringGrid do
    begin
      MouseToCell(x,y,Acol,Arow);
      //hier ist kein screentoclient notwendig

      //nur neuzeichnen, wenn wirklich notwendig und nur die Zellen neuzeichnen, die es wirklich betrifft, nicht das ganze Grid
      if (Acol<>FMouseCol) or (aRow<>FMouseRow) then
        begin
          //alte Zelle neuzeichnen, um Font zurückzusetzen
          TGridhack(Sender).InvalidateCell(FMouseCol,FMouseRow);
          FMouseCol:=acol;
          FMouseRow:=arow;
          //neue Zelle neuzeichnen (fett)
          TGridhack(Sender).InvalidateCell(FMouseCol,FMouseRow);
        end;
    end;
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;Rect: TRect; State: TGridDrawState);
begin
  with Sender as TStringGrid do
    begin
      If (Acol=1) and (Acol=FMouseCol) and (ARow=FMouseRow) then
        canvas.Font.Style:=[fsbold]
       else
        canvas.Font.Style:=[];

      //Hintergrunde + Text Zeichnen
      canvas.FillRect(rect);
      canvas.TextOut(rect.Left+2,rect.Top+2,Cells[acol,arow]);
    end;
end;