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

[Droïde Système7]

De rien, de rien

De toute façon je ne suis qu'un tout petit débutant.

Alors si j'ai bien pigé, alors suffirait de lier cet événement OnExit à la détection de la touche Enter qui permet la sortie, ai-je bien saisi ?

Si oui, alors dans ton OnExit, un appel à une sous-procédure de la détection dito devrait faire l'affaire.

PS : Oupssss, je viens de confondre le OnClose de ta fiche/appli et le OnExit de l'Edit. Déjà bourré avant les fêtes

[Haywire]

à la limite si ton but c'est juste d'éviter que les autres edit soient rempli tant qu'on a pas rempli le editnom, tu peux tout simplement mettre les autres edit en readonly tant que l'editnom n'est pas rempli.
Comme ça tu gardes l'accès à tout le reste.

[Droïde Système7]

- 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.

Quel est le code sur le OnClick de ce bouton Sortir ? si ce n'est pas un secret.

[Jipété]

Salut.
Salut, J-P.

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

Gère ça sur le OnChange de ton EditNom :

Code :

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

if Text <> '' then Enable_Les_Autres else Disable_Les_Autres;

Mes 2 cts et
JOYEUX NOËL,
--
jp

[edam]

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.Edit1Exit(Sender: TObject);
begin
    if  (Form1.ActiveControl<>ButtonAnnule) and
       (trim(edit1.Text)='') then edit1.SetFocus;
end;
 
procedure TForm1.Edit1Change(Sender: TObject);
begin
     buttonvalider.enable:=(trim(edit1.Text)<>'');
end;

[Duan]

Pour J-P Mon code pour le bouton sortir est simplement Close;

A tous, merci de vos réponses, je vais regarder cela quelque part durant les Fêtes. En passant, Joyeuses Fêtes à tous.

Duan

[Droïde Système7]

Bonjour à Toutes et Tous et bonne préparation des Fêtes,

Duan écrivait :

[...] 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 enlevé le tag [Résolu] que tu avais apposé par anticipation, j'adore la science-fiction mais pas à toutes les sauces

Nous nous diras, le moment venu, si tu as trouvé ton bonheur dans les codes de nos camarades ci-dessus... Si oui alors un autre petit clic sur le bouton... devine