Discussion :

[melles]

Bonjour,

J'aimerai bien faire comprendre à mon petit programme ou le curseur doit se deplacer lorsqu'on clique sur TAB.
Il faudra que je puisse faire ça à partir de chaque Tedit. Donc, je suppose qu'il faut que je lui fasse comprendre dès la base ou se trouve mon curseur.

En gros, je ne sais pas comment on dit "Le curseur va là s'il etait ici!"
Je me doute que ça va ressembler à un tuk du genre :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
    if Key=VK_TAB then 
  begin
        //Si le curseur est sur Tedit1
        //Alors, on le balance sur Tedit3 à la plae de Tedit2
  end;
end;

Any Ideas?

[defluc]

Bonjour

En jouant sur les propriétés TabOrder et TabOrderStop de chaque composant, tu peux déjà t'épargner pas mal de codage.

[aityahia]

vous cliquer avec le bouton droit de la sourie sur le fortre form ou panel (le parent de vos edits) et vous avez le sous-menu choisissez TabOrder et vous les ordonez selon votre besoin.

si vous voullez uitliser d'autres touche monter et déssendere dans vos edit.
vous inserer ce code dans l'evenement OnKeyDown de votres fiche il faut mettre a true KeyPreview de votre fiche

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 Case Key of
 VK_RETURN,VK_DOWN :
 
if  (Form1.ActiveControl is TEDit) Then
 Form1.ActiveControl:= Form1.FindNextControl(Form1.ActiveControl,True,True,FAlse);
   VK_UP :
  if  (Form1.ActiveControl is TEdit)  Then
   Form1.ActiveControl:=  Form1.FindNextControl(Form1.ActiveControl,False,True,FAlse);
end; // end case
end;

le KeyPrview permet a la fiche de recevoir tous les evenement du clavier avant les autres controls

[SergioMaster]

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
    if Key=VK_TAB then 
  begin
        //Si le curseur est sur Tedit1
        //Alors, on le balance sur Tedit3 à la plae de Tedit2
  end;
end;

TEdit3.SetFocus est peut-etre suffisant non ?

[Kaféine]

comme dit defluc les tabOrder et tabStop a true suffisent

pour ton ex:

//Si le curseur est sur Tedit1
//Alors, on le balance sur Tedit3 à la plae de Tedit2

Edit1 -> TabOrder 0
Edit2 -> TabOrder 2
Edit3 -> TabOrder 1

avec le TabStop a True pour chaque Edit

[aityahia]

mais sans codage en ne peut pas monter et décendre dans les formulaire a plusieur champs sans faire la boucle

[Kaféine]

mais sans codage en ne peut pas monter et décendre dans les formulaire a plusieur champs sans faire la boucle

Si en utilisant ALT+TAB tu montes
et TAB tu descend

[Pedro]

Si en utilisant ALT+TAB tu montes
et TAB tu descend

C'est pas Alt+Tab mais Shift+Tab

[melles]

comme dit defluc les tabOrder et tabStop a true suffisent
pour ton ex:

Edit1 -> TabOrder 0
Edit2 -> TabOrder 2
Edit3 -> TabOrder 1

avec le TabStop a True pour chaque Edit

En vous remerciant