Morgen zusammen!
Vorab möchte ich betonen, dass ich eher ein Anfänger bin (Info 11. Klasse vor 5 Jahren für 1 Jahr) und von daher nicht so bewandelt bin!!
Da ein Kollege und ich Dartversessen sind und regelmäßig selbst spielen, allerdings absolut gegen diese Plastik E-Dart-Scheiben sind und deshalb mit Steeldarts auf eine Naturfaser-Scheibe spielen, habe ich ein Programm geschrieben in dem wir die Punkte festhalten können (es wird immer von 501/301 Punkten runter gespielt) und darüber hinaus auch den Average anzeigen lassen. Dank dem Internet läuft das Ding mittlerweile ziemlich gut und wäre quasi auch fertig, wäre da nicht eine (wahrscheinlich) einfache Sache:
Wie das Bild im Anhang zeigt, gibt es 2 Edit-Felder um die geworfenen Punkte einzutragen, was natürlich auch mit Enter bestätigt werden kann um nicht mit der Maus oder vorher per Tab den Button zu aktivieren. Nervig ist allerdings nun, dass man per Maus bzw. mehrfachem Tab-Druck nur ins jeweils andere Editfeld kommt.
In einem anderen Zusammenhang habe ich bereits den Befel:
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7:
| procedure TForm4.Edit1KeyPress(Sender: TObject; var Key: Char); begin if key = #13 then begin Self.Perform(WM_NEXTDLGCTL, 0, 0); key := #0; end; |
angewandt, was auch super funktioniert. In dem Fall kann ich ihn nur leider nicht anwenden, da er dann vom Editfeld direkt auf den Button springt anstatt rüber ins andere Edit-Feld.
Mir wurde bereits eine Möglichkeit über sogenannte Listen vorgeschlagen, allerdings muss ich gestehen, dass ich das für sehr aufwendig und kompliziert halte und es auch selbst nicht in den Code hineinbekommen habe.
Von daher meine Frage: Habt ihr eine Idee, wie ich das Problem lösen kann? Für Lösungsansätze wäre ich sehr dankbar!
Schönen Gruß
Wink
PS: Ich hoffe ich habs hier ins richtige Forum gepackt, ansonsten bitte verschieben!!
Moderiert von Gausi: Highlight- durch Delphi-Tags ersetztModeriert von Martok: Topic aus Sonstiges (Delphi) verschoben am So 15.05.2011 um 12:52