1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.FormCreate(Sender: TObject);
begin
  form1.Feld.Canvas.Pen.Color:=RGB(0,255,0);   // Schriftfarbe: Grün
  form1.Feld.Canvas.Pen.Width:=5;
  form1.Feld.Canvas.MoveTo(0,87);
  form1.Feld.Canvas.LineTo(200,87);


  //form1.Feld.FixedCols:=(4);
end;					

1:

Stringgrid.cells[stringgrid.col,stringgrid.row]:=inttostr(((Sender as Tradiobutton).Tag));					

1:
2:
3:
4:
5:
6:
7:
8:

uses ..., Math;
// ...
{
  X: geklicktes X
  Y: geklicktes Y
}
spalte := floor(x / spaltenbreite);
zeile  := floor(y / zeilenhoehe);					

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:

procedure TForm1.FeldDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
var nx,ny:byte;
begin

//Dicke Striche zur Unterteilung der einzelnen Unterquadrate

{  form1.Feld.Canvas.Pen.Color:=RGB(0,0,0);   // Fontcolor: Black
  form1.Feld.Canvas.Pen.Width:=2;            // Breite = 2

  form1.Feld.Canvas.MoveTo(0,91);
  form1.Feld.Canvas.LineTo(279,91);

  form1.Feld.Canvas.MoveTo(0,182);
  form1.Feld.Canvas.LineTo(279,182);

  form1.Feld.Canvas.MoveTo(91,0);
  form1.Feld.Canvas.LineTo(91,279);

  form1.Feld.Canvas.MoveTo(182,0);
  form1.Feld.Canvas.LineTo(182,279);   }


form1.Feld.Canvas.Pen.Width:=1;
for nx:=0 to 8 do
  begin
    for ny:=0 to 8 do
      begin
        form1.Feld.Canvas.Rectangle(30*nx,30*ny,30*nx+30,30*ny+30);
       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:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

procedure TForm1.StringGrid2DrawCell(Sender: TObject; ACol, ARow: Integer;Rect: TRect; State: TGridDrawState);
Var nx,ny:integer;
    s:string;
begin
  with sender as TStringGrid do
    begin
      //Farben bestimmen
      if gdselected in state then
        begin
          canvas.Brush.Color := clHighlight;
          canvas.font.color  := clHighlightText;
        end
       else
        begin
          canvas.Brush.Color := clwindow;
          canvas.font.color  := clWindowText;
        end;

      //Hintergrund der Zelle füllen
      canvas.FillRect(rect);

      //Zelltext holen
      s:=cells[acol,arow];
      //und horzontal und vertikal ausgeben
      DrawText(canvas.Handle,PChar(s), StrLen(PChar(s)),Rect,DT_CENTER or DT_VCENTER or DT_SINGLELINE);

      //aller 3 Zellen die Linien stärker malen
      if ((acol+1) mod 3)=0 then
        begin
          canvas.Pen.Color := clblack;
          Canvas.Pen.Width:=3;
          //nur im Bereich der zu zeichnenen Zelle zeichnen
          //Strich rechts
          canvas.moveto(Rect.Right,rect.top);
          canvas.LineTo(Rect.Right,rect.bottom);
        end;
      if ((arow+1) mod 3)=0 then
        begin
          canvas.Pen.Color := clblack;
          Canvas.Pen.Width:=3;
          //Strich unten
          canvas.moveto(Rect.left,rect.Bottom);
          canvas.LineTo(Rect.Right,rect.bottom);
        end;
    end;
end;					

1:

 if gdselected in state then					

1:
2:
3:
4:
5:
6:
7:
8:
9:

   begin
          canvas.Brush.Color := clHighlight;
          canvas.font.color  := clHighlightText;
        end
       else
        begin
          canvas.Brush.Color := clwindow;
          canvas.font.color  := clWindowText;
        end;					

1:
2:

      //und horzontal und vertikal ausgeben
      DrawText(canvas.Handle,PChar(s), StrLen(PChar(s)),Rect,DT_CENTER or DT_VCENTER or DT_SINGLELINE);					

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

    //aller 3 Zellen die Linien stärker malen
      if ((acol+1) mod 3)=0 then
        begin
          canvas.Pen.Color := clblack;
          Canvas.Pen.Width:=3;
          //nur im Bereich der zu zeichnenen Zelle zeichnen
          //Strich rechts
          canvas.moveto(Rect.Right,rect.top);
          canvas.LineTo(Rect.Right,rect.bottom);
        end;
      if ((arow+1) mod 3)=0 then
        begin
          canvas.Pen.Color := clblack;
          Canvas.Pen.Width:=3;
          //Strich unten
          canvas.moveto(Rect.left,rect.Bottom);
          canvas.LineTo(Rect.Right,rect.bottom);
        end;					

1:
2:
3:
4:

if DeineBedingung then  
  stringgrid1.options:=stringgrid1.options+[goediting] //Zelle kann editiert werden  
 else  
  stringgrid1.options:=stringgrid1.options-[goediting] //Zelle kann nicht editiert werden					

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:

procedure TForm1.FeldDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
 var nx,ny,rx,ry:byte;
    s:string;
begin

//Zellen einzelnd zeichnen mit zugehörigem Wert - Testphase

 with sender as TStringGrid do
    begin
      canvas.Brush.Color := clwhite;
      canvas.font.color  := clblack;
      feld.canvas.FillRect(rect);    //Hintergrund der Zelle füllen
     
      s:=cells[acol,arow];        //Zelltext holen
      //und horzontal und vertikal ausgeben  (mittig)
      DrawText(canvas.Handle,PChar(s), StrLen(PChar(s)),Rect,DT_CENTER or DT_VCENTER or DT_SINGLELINE);

      canvas.Pen.Color := clblack;
      Canvas.Pen.Width:=3;

      //aller 3 Zellen die Linien stärker malen
      if ((acol+1) mod 3)=0 then
        begin
      //nur im Bereich der zu zeichnenen Zelle zeichnen
      //Strich rechts
          canvas.moveto(Rect.Right,rect.top);
          canvas.LineTo(Rect.Right,rect.bottom);
        end;
      if ((arow+1) mod 3)=0 then
        begin
          //Strich unten
          canvas.moveto(Rect.left,rect.Bottom);
          canvas.LineTo(Rect.Right,rect.bottom);
        end;
    end;
end;					

1:
2:
3:
4:
5:
6:
7:

  with sender as TStringGrid do
    begin
      //Änderungen nur, wenn Zelle leer ist und eine Zahlentaste gedrückt wurde
      if (cells[col,row]='') and (key in ['1'..'9']) then
        cells[col,row]:=key;
        ...
    end;					

1:
2:
3:
4:
5:

      s:=cells[acol,arow];
      //und horzontal und vertikal ausgeben
      canvas.TextOut(rect.Left+(rect.Right-Rect.left-canvas.TextWidth(s)) div 2,
                     rect.top+(rect.bottom-Rect.top-canvas.TextHeight(s)) div 2,
                     s );					

1:
2:
3:

s:=cells[acol,arow];
//und horzontal und vertikal ausgeben
canvas.TextOut(rect.Left+(rect.Right-Rect.left-canvas.TextWidth(s)) div 2,rect.top+(rect.bottom-Rect.top-canvas.TextHeight(s)) div 2,s );					

1:
2:

//und horzontal und vertikal ausgeben
DrawText(canvas.Handle,PChar(s), StrLen(PChar(s)),Rect,DT_CENTER or DT_VCENTER or DT_SINGLELINE);					

1:
2:
3:
4:
5:
6:
7:
8:

canvas.handle  - müsste ansich ja irgendwas reinmalen in den StringGrid. Also reinmal des Buchstaben?

PChar(s)       - dürfte wohl die Übergabe des eingelesen Wortes sein.

Rect           - hatten wir vorhin benutzt zum ausfüllen des Feldes, dies wäre aber das gleiche wie canvas.handle

DT_Center etc. - Wieso kommt es dort zu mehreren Auswahlmöglichkeiten? Ich denke mal, dass es bedeutet, dass der Text zentriert 
                 ausgegeben wird (sagen mir die vordersten Werte. Der 3. Wert "Singleline" sagt mir hier aber nichts.					

1:

var  tZelle : array[0..8, 0..8] of Integer;