Puis-je sortir de mon setfocus

Version imprimable

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:

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

23/12/2006, 15h58
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 ?

:roll: là je ne pense pas que ce soit possible à moins qu'un Edit bifocused existe ; mais pas demain la veille ;)
23/12/2006, 16h31
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.
23/12/2006, 17h50
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
23/12/2006, 17h55
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... :roll:
23/12/2006, 18h12
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
23/12/2006, 18h32
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 :mouarf:
23/12/2006, 19h35
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.
23/12/2006, 19h47
Droïde Système7

Citation:

- 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.
23/12/2006, 20h26
Jipété

Salut.
Salut, J-P.

Citation:

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:

if Text <> '' then Enable_Les_Autres else Disable_Les_Autres;

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

Code:

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;

24/12/2006, 06h51
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
24/12/2006, 12h25
Droïde Système7

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

Duan écrivait :

Citation:

[...] 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 :P