Bei Enter ins nächste EDIT-Feld

[Stevie]

Delphi-Quellcode:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  NextControl: TWinControl;
begin
  if Key = VK_RETURN then
  begin
    NextControl := Sender as TWinControl;
    repeat
      NextControl := FindNextControl(NextControl, True, True, True);
    until NextControl.InheritsFrom(TEdit);
    NextControl.SetFocus;
  end;
end;