Einzelnen Beitrag anzeigen

shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#6

Re: Kreuzbutton - kein Event ausgelöst?

  Alt 9. Jun 2008, 18:09
Zitat von richie:
Nocheinmal das Problem, weil ich glaube, dass das noch nicht so richtig verstanden wurde: mir geht es weniger darum, die Schleife zu Beenden, als vielmehr zu erfahren, warum kein Event ausgeführt wird.
Die Schleife sieht folgendermaßen aus (über Sinn und Nutzen möchte ich mich jetzt nicht streiten):
Doch, genau um den Unsinn der Schleife sollten wir uns unterhalten.
Windows ist ein eventgesteuertes System. Durch deine überflüssige Schleife verhindest du das Abarbeiten von Maus- und Tastaturevents.
Dabei ist Vier-Gewinnt ganz einfach zu steuern:
Im Formular das Property KeyPreview auf True setzen.
Im Event OnKeyPress fragst du einfach die Tasten '1' bis'7' ab.
Das entspricht dann dem Fallenlassen einer Münze in der jeweiligen Spalte.
In der Luxusausführung reagiert man zusätzlich auf Pfeil-Links/Rechts und Leertaste.
Ein Doppelklick im Drawgrid bedeutet ebenfalls "Münze fallenlassen".
Andreas
  Mit Zitat antworten Zitat