Discussion :

[tchimou]

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.

[philnext]

A mon avis tu as un composant de ta form (le bouton 'fermer' par exemple) qui a le focus et qui est déclenché sur le enter.

[akli_agha]

Regardez dans la propriété ModalResult de votre bouton. Elle doit être ègale à mrNone

Si c'est autre chose (mrOk, mrCancel, ...) la fiche se ferme.

Bon Dev.

[aityahia]

ton code fonctionne correctement comme a dit philnex se devrai etres un conotrol avec le modalResult MrOk and MrCancel qui obtien le focus

[tchimou]

merci pour vos reponses, au juste comme vous l'avez dit, il s'agissait d'un bouton,j'avais choisis le bouton de type BitBtn, et ce bouton ,lorsqu'on tape sur la touche Enter, il s'execute automatiquement sans qu'on ne lui demande et il ferme la page.
J'ai changé de bouton et j'ai pris un SpeedButon et tout va bien.
Merci encore pour votre aide.

[aityahia]

t'aurai pu garder le bitbtn et changer la proprété ModalResult et la mettre a MrNone.

[tchimou]

ah ok , je ne savais pas , je suis desolé, prochainement , je ferais ainsi.
Merci encore