Mit ENTER-Taste von EDITFeld zu EDITFeld und zur AUSGABE

[Phistev]

Mit key:=#0 wird verhindert, dass die Taste noch weiterverarbeitet wird. Man könnte es aber noch weiter vereinfachen:

Delphi-Quellcode:

if Key = #13 then begin
  if Sender = Edit1 then Edit2.SetFocus
  else if Sender = Edit2 then Edit3.Setfocus
  {...}
  else if Sender = Editx then Button1.Click; //Editx ist das letzte Eingabefeld
  key:= #0;
end;

Damit braucht man nur eine Methode für alle Edit-Felder.

/edit: Key:= #0 vergessen