passer dun edit a l'autre?Résolu

Question

salut a tous,
voila ca fait presque une journ&#233; que je me prend la tete avec ce detail qui m'est essentiel;
je voudrait dans un edit, passer automatiquement a un edit suivant lorsque cette edit a ateint x caractere.
ca doit etre un truc tous con...
un peu comme une saisie de date quoi...
voila merci de votre aide

jmp77 · Accepted Answer

Re,



Je viens de reflechir et j'ai encore mieux :



Tu crees une seule et unique procedure gerant les onchange de tout tes edits comme cela :

procedure TForm1.EditOnChange(Sender: TObject);

begin



   If Length(TEdit(Sender).Text) = 5 then

   Form1.SelectNext(FindNextControl(TWinControl(Sender),True,False,False),True,True);

end;



Et dans toutes les propri&#233;t&#233;s OnChange de tes TEdit tu mets
EditOnChange. Comme cela avec une procedure tu peux gerer tous les
edits. 

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

jmp77 · Answer

Hello,



Dans le on change du edit tu fais :



If Length(Edit1.Text) = 4 then //Si tu veux 4 caracteres par exemple

Edit2.SetFocus;

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

molotof_FC · Answer

salut jmp77, merci de ta reponse, ca marche, mais pas lorsque l'on fait copier coller coller ou encore lorsque la valeur de l'edit et par defaut plus grande (pour le dernier probleme je sais pas si c'est possible a faire) mais esque ce serait possible au moin pour le copier coller?
merci encore

jmp77 · Answer

Re,



Ben ecoute chez moi le copier coller fonctionne tres bien des que c'est
superieur a 5 hop ca saute. Rajoute ">" comme ci dessous pour que si
le nb de caracteres est superieur qu'il saute d'edit.



procedure TForm1.EditOnChange(Sender: TObject);

begin



   If Length(TEdit(Sender).Text) >= 5 then

   Form1.SelectNext(FindNextControl(TWinControl(Sender),True,False,False),True,True);

end;



Bonne prog,
JMP77.

N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e.

molotof_FC · Answer

merci

seast · Answer

Bonjour,
1/ Peut-on passer le nombre de caract&#232;res d&#233;clenchant le passage en param&#232;tre de la proc&#233;dure ?


2/ Comment est d&#233;fini l'ordre des edit ? car chez moi le passage d'un edit &#224; l'autre ne se fait pas dans l'ordre de placement sur la fiche (ni dans celui du TabOrder)...
merci,
Seast

alexyou · Answer

bonjours j'aimerais bien d'aides sur un petit projet que je fait en Delphi surtout la grille avec le random Merci d'avance, j'ai utilisé des mots de 6 ltr.

Passer dun edit a l'autre?

7 réponses

Votre réponse

Discussions similaires