Editfeld nach 5. Zeichen wechseln

[jensw_2000]

Konfiguriere den Scanner so, das er mit RETURN abschliest und nimm MaxLength=5 bei Edit1 wieder weg.

Dann in Edit1.onKeyPress..

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
  var s: String;
begin
  if key=#13 then
  begin
    key:=#0;
    // Prüfen ob edit1.text > 5 Zeichen ist
    s:=edit1.Text;
    if length(s) > 5 then
    begin
       edit1.Text:=Copy(s,1,5);
       edit2.text:=Copy(s,6,length(s));
       edit2.SetFocus;
    end;
  end;
end;