Delphi-Quellcode:
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.Col := (i + Horizontal);
SGridKreuzwort.Row := (j + Vertikal);
{SGridKreuzwort.Update;
SGridKreuzwort.Repaint;}
break; //Schleife abbrechen, da Kästchen gefunden
end;
Auch mit "break;" tritt der Fehler immer noch auf. Ich habe jetzt mal im OnDrawCell-Ereignis
if SGridKreuzwort.IsSelected[aCol,aRow]
ersetzt mit
if (ACol = SGridKreuzwort.Col) and (aRow = SGridKreuzwort.Row)
Scheint zu funktionieren.
Was mich allerdings stutzig macht, ist die Tatsache dass ich in den OnClick-Ereignissen der beiden Listboxen die Prozedure GeheZuMarkierterFrage() 2x aufrufen muss...