Mit ENTER-Taste von EDITFeld zu EDITFeld und zur AUSGABE

[Sharky]

Warum denn so kompliziert?

Einfach allen Editfeldern die Selbe OnKeyPress Methode zuweisen und dann:

Delphi-Quellcode:

procedure TForm1.AllEditKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = Chr(VK_RETURN) then // Wenn Entergedrückt wurde
  begin
    if (Sender = edt_Edit4) then
    begin
      //Berechnung starten
    end
    else
    begin
      Self.Perform(WM_NEXTDLGCTL, 0, 0); // Springe zum nächten Control.
    end;
    Key := #0;
  end;
end;

In diesem Beispiel wird davon ausgegangen das edt_Edit4 das letzte Editfeld ist.