Delphi/Lazarus: Enter-Taste in Edit-Feld

Du kannst einfach im OnKeyPress des Edit-Feldes auf die Enter-Taste reagieren.

Enter hat den Key-Code #13, die Abfrage könnte also zum Beispiel so aussehen:

procedure TForm1.Edit1KeyPress(Sender: TObject; 
  var Key: Char);
begin
  if Key = #13 then begin
    Button1.Click;  // zum Beispiel: Button-Click simulieren
    Edit2.SetFocus; // oder: zum nächsten Edit springen
    // ... oder etwas anderes
    Key := #0;
  end;
end; 

Hier rufen wir einfach die Prozedur Button1Click auf, so dass der darin enthaltene Code beim Drücken der Enter-Taste ausgeführt wird und springen zum nächsten Edit-Feld. Natürlich kannst du auch jeden anderen Code an dieser Stelle aufrufen oder eintragen.

Wichtig ist es anschließend den Key auf #0 zu setzen. So verhinderest du, dass noch eine weitere Verarbeitung im Edit stattfindet.
Letztes Update am 03.01.2024 | Erstellt am 16.03.2015

Wenn bei Drücken der Enter-Taste ein Button geklickt werden soll, kannst du auch die Eigenschaft "Default" des Buttons auf "true" setzen. Damit wird automatisch der Button geklickt, wenn Enter gedrückt wird.

Dasselbe gilt es auch für die ESC-Taste, in diesem Fall muss die Eigenschaft "Cancel" auf "true" gesetzt werden.
18.03.2015 um 21:54