TEdit: Eingabe an nächstes Editfeld weitergeben

[Mike_on_Tour]

Zitat von nachti1505:

Code:

procedure OnKeyPress(...)
var NextEdt: TEdit;
begin
  if length(Edit.Text) = Edit.MaxLength then begin
    NextEdt := LocateNextEdit;
    NextEdt.SelStart := length(NextEdt.Text);
    NextEdt.Text := NextEdt.Text + Key;
  end;
end;

Sorry, das ich nicht gleich geantwortet habe. Das Prinzip ist mir klar, aber mit dem 'LocateNextEdit' komme ich nicht weiter. Da könnte ich noch etwas Hilfe gebrauchen.