Edit voll => ins nächste springen?

[Z4ppy]

Ich möchte in die nächste Version meines Sudoku Solvers (Link siehe Signatur) einbauen, dass der Cursor direkt zum nächsten Feld springt, wenn man eine Zahl eingegeben hat.
Gibt es eine elegantere Methode, als für jedes Feld im OnKeyPress-Ereignis zu prüfen, ob das Feld voll ist und dann den Focus aufs nächste zu setzen?

MfG Z4ppy

[DeddyH]

Schreib doch eine einzige OnChange()-Methode und weise diese allen betroffenen Edits zu. Darin kannst Du über den Sender-Parameter auswerten, welches Edit es gerade betrifft.

[Matze]

Ich habe dir mal was angehängt. Nicht schön, aber selten.

Edit: Och Mensch. Vor lauter Delphi habe ich Deddys Beitrag nicht mitbekommen. Das im Anhang ist genau das, was Deddy vorgeschlagen hat.

[DeddyH]

Ich hatte da eher an so etwas gedacht:

Delphi-Quellcode:

procedure TfrmMain.EditChange(Sender: TObject);
begin
  if (Sender is TEdit) and (Length(TEdit(Sender).Text) > 1) then
    Perform(WM_NEXTDLGCTL,0,0);
end;

Dazu braucht man kein FindComponent, das kann man schön geschmeidig im OI zuweisen

[Z4ppy]

Ich werd es so lösen, wie Matze vorgeschlagen hat, da ich so ein Array of TEdit ohnehin schon habe
Danke für die schnellen Antworten

MfG Z4ppy

[Matze]

Zitat von DeddyH:

Dazu braucht man kein FindComponent, das kann man schön geschmeidig im OI zuweisen

Das ist natürlich schöner jo. Ich wollte nur mal was zeigen, das man ohne große Rückfragen auch versteht. Gut Ausrede, gell.

[DeddyH]

[jaenicke]

Für meinen Sudoku-Löser und Generator habe ich ganz ganz ausnahmsweise einmal ein StringGrid benutzt. Da gehen dann neben dem automatischen Wechsel zum nächsten Feld auch die Pfeiltasten zur Navigation, genauso wie Tab um zum nächsten Block zu kommen, ...
http://www.delphi-forum.de/viewtopic.php?t=48160