Discussion :

[Duan]

J'ai une fiche avec plusieurs TEdit et autres composants. Le premier TEdit à remplir est EditNom, qui est un champ obligatoire. J'ai ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.EditNomExit(Sender: TObject);
  var
    Edit:TEdit;
  begin
    If EditNom.Text=''then
    begin
      Edit:=Sender as TEdit;
      edit.SetFocus;
    end
    else
    begin
    // Commandes
    end;
end;

J'ai un TButton Sortir mais je ne peux l'employer tant que je n'ai pas saisi de texte dans mon TEdit. C'est le seul TButton Enabled lorsqu'il n'y a pas de texte dans le TEdit, les autres le deviennent lorsque le champ est remplis. Je peux quitter la Fiche par le X de la fiche mais j'aimerais mieux pouvoir me servir de mon bouton Sortir.

Merci

Duan

[Droïde Système7]

Bonjour,

Si j'ai bien compris, tu as un Edit qui dispose du focus, et tu souhaiterais obtenir à l'aide directement (sans toucher au mulot) d'un Enter le Quitter de ton appli ?

là je ne pense pas que ce soit possible à moins qu'un Edit bifocused existe ; mais pas demain la veille

[Haywire]

Si je comprends bien, quand tu essayes de sortir de ce tEdit, le code vérifie que le tedit a bien été rempli, et si ce n'est pas le cas il remet le focus dessus.

Donc j'imagine que tu as fait en sorte que lorsqu'on ouvre cette fiche le focus se met directement sur le tedit?

Si c'est bien ça, pourquoi ne met tu pas tout simplement le focus plutot sur le bouton lors de l'ouverture de la fiche?
Ainsi tant qu'on a pas cliqué dans le tedit on a acces au bouton sortir.

[Duan]

Merci pour vos réponses; je vais plutôt mettre le bouton sauvegarder seulement si le nom est valide. La fiche pourra etre remplis mais non sauver si le nom n'est pas correct (vide ou existant).

Duan

[Droïde Système7]

Pour t'aider d'avantage, là faudrait déjà expliquer plus clairement ce que tu souhaites alors faire.

Je pensais suite à ma première réponse qui se basait sur ton souhait (?) de sortir éventuellement avec un appui sur ton bouton Sortie via un Enter (?).

Hé bien si tel est le cas, suffit de détecter si cette touche "Enter" est appuyée et basta la soluce est toute trouvée.

Mais sans plus de détails...

[Duan]

Merci J-P

Même si j'ai marqué résolu, je vais essayer d'expliquer mieux mon problème pour voir si tu as une solution (pour le futur, c'est toujours utile).

- j'ai une TForm avec 10 TEdit

- le EditNom a le focus

- Je ne peux sortir de celui-ci donc ne peux écrire dans les autres TEdit tant que qu'il n'y a pas de texte inscrit (je vérifie l'exisance du nom plus tard).

- Si je décide que quitter la TForm sans rien inscrire, je ne le peux pas car à l'événement onExit du Tedit, celui-ci me refuse l'accès à mon bouton Sortir car son text est vide.

J'espère avoir été plus précis cette fois

Encore merci

Duan