Kreuzworträtsel

[Blup]

Zitat von Noobmaster:

Delphi-Quellcode:

procedure TForm1.GeheZuMarkierterFrage(var pListBox: TListBox);
{...}

Objektvariablen sind bereits Zeiger auf das Objekt, eine Übergabe als Varparameter ist überflüssig:

Delphi-Quellcode:

procedure TForm1.GeheZuMarkierterFrage(AListBox: TListBox);
{...}

Hier solltest du unbedingt nach der Ursache forschen und diese abstellen:

Zitat von Noobmaster:

Delphi-Quellcode:

   GeheZuMarkierterFrage(ListBoxHorizontal);
   GeheZuMarkierterFrage(ListBoxHorizontal); //bei einmaligen Aufruf springt das Kästchen manchmal falsch

Ohne den kompletten Quelltext kann ich nur vermuten, du reagierst auch im SGridKreuzwort auf das Auswählen einer Zelle und beeinflusst dort den Index in den Listboxen. Das sollte aber beim Debuggen auffallen.

Im OnDrawEreignis bekommst du übrigends den Status der zu zeichnenden Zelle in "State" mitgeliefert.

Delphi-Quellcode:

  if gdSelected in State then
{...}

Break bricht nur die innere Schleife ab.