Kreuzworträtsel

[Noobmaster]

Delphi-Quellcode:

   //Alle Kästchen nach der Nummer durchsuchen
   for i := 0 to SGridKreuzwort.ColCount - 1 do
      for j := 0 to SGridKreuzwort.RowCount - 1 do
         if SGridKreuzwort.Cells[i,j] = FrageNr then
         begin
            SGridKreuzwort.OnSelectCell := nil; //Verhindern, dass OnSelectCell sofort ausgeführt wird
            SGridKreuzwort.Col := (i + Horizontal);
            SGridKreuzwort.OnSelectCell := @SGridKreuzwortSelectCell; //darf wieder ausgeführt werden
            SGridKreuzwort.Row := (j + Vertikal);
         end;

Nach ein paar Tests scheint diese Methode zu funktionieren.

Vielen vielen Dank für die vielen, schnellen und hilfreichen Antworten!