var Pt: TPoint; { Booléen pour éviter de colorier la cellule de coordonnées [0, 0] au démarrage } Start: boolean = True; procedure TForm1.Button1Click(Sender: TObject); begin Pt.X : = 2; Pt.Y := 3; Start := False; StringGrid1.Repaint; end ; procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin ifnot Start and (Acol Pt.X) <gras>and (ARow</gras> Pt.Y) then with StringGrid1.Canvas do begin Brush.Color : = clGreen; Brush.Style := bsSolid; FillRect(Rect); end ; end;