bonjour à tous!
j'ai un probleme est la gestion des caractères de mon Edit;
j'ai donné des caractères qui doivent entrer dans l'Edit , et lorsque l'utilisateur tape la touche Enter , le curseur doit aller à l'Edit suivant.
mais ici je suis entrain d'encoder des données qui lorsque j'appuie sur le bouton Ok , ces données sont encoder dans la base de données.
Le probleme est ceci: lorsque je saisis la première donnée et que je tape la touche Enter pour aller au prochain Edit , la page se ferme subitement.
Alors je ne comprends pas ,voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
procedure TContactForm.EditNomKeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in [#8,'0'..'9','a'..'z','A'..'Z',#13,#44,#46]) then Key:=#0;
  if Key=#46 then Key:=#44;
  if Key<>#13 then exit;
  Key:=chr(0);
  Perform(WM_NextDlgCtl,0,0);
end;
c'est le code que j'ai l'habitude d'utiliser pour la gestion des caractères de mes Edit.
Ici je ne comprends vraiment pas ce problème.
Merci pour votre aide.