{ Gestionnaire d'évènement OnKeyPress de la fiche } procedure TFormX.FormXKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then begin Key := #0; PostMessage(handle, WM_NEXTDLGCTL, 0, 0); end; end;