Delphi/Lazarus: Touche d’Entrée dans Edit

Vous pouvez simplement réagir à la touche Entrée dans l'événement OnKeyPress du champ Edit.

La clé de retour a le code clé #13, donc l'instruction if pourrait ressembler à ceci:

procedure TForm1.Edit1KeyPress(Sender: TObject; 
  var Key: Char);
begin
  if Key = #13 then begin
    Button1.Click;  // par exemple: simuler un clic sur un bouton
    Edit2.SetFocus; // ou: passer à edit suivante
    // ... ou quoi que ce soit d'autre
    Key := #0;
  end;
end; 

Dans cet exemple, nous appelons simplement la procédure Button1Click, de sorte que le code qu'elle contient soit exécuté après avoir appuyé sur la touche Entrée, et nous passons au champ Edit suivant. Bien entendu, vous pouvez également exécuter ou écrire tout autre code ou fonction à ce stade.

Il est important de remettre ensuite Key sur #0. Avec cela, vous empêchez l'Edit de traiter davantage l'entrée.
01/01/2024 à 19:07

Si un bouton doit être cliqué en appuyant sur la touche Entrée, vous pouvez également définir la propriété "Default" du bouton sur "true". Avec cela, le bouton sera cliqué automatiquement lorsque vous appuierez sur Entrée.

Il en va de même pour la touche ESC. Dans ce cas, vous devez définir la propriété "Cancel" sur "true".
02/01/2024 à 20:30