SetFocus et TEdits qui peuvent changer de place

Bonjour à tous

Dans la série (sans fin) de comment se créer soit même des emmerdements, je vous propose ceci :

Hier soir j'ai eu une brillante idée : pouvoir changer de place des TEdits qui sont les uns à la suite des autres.
TEdit1 TEdit2 TEdit3 que je réorganise comme je veux par exemple TEdit3 TEdit2 TEdit1
C'est bon, ça fonctionne en changeant leur .Left
Oui mais, ce matin, en voulant me servir de mon outil, je me rends compte que le focus est resté figé (normal en soi il est dans le code).

Mais alors, comment faire pour dire que par exemple que de TEdit3 je dois aller en TEdit2 et non en TEdit1 suivant les "positions" des TEdit 8O

J'ai pensé à une liste de composant mais pour le moment je suis dans l'impasse.

Auriez vous des suggestions à me faire ?

Redéfinir le TabOrder des Edit après chaque réorganisation.
Personnellement, je stockerais des pointeurs sur ces Edit dans une TObjectList, pour les balayer plus facilement.

Merci Lung,
En faisant une recherche avec le mot clef "TObjectList"
je suis tombé sur une discussion de 2007 https://www.developpez.net/forums/d3...st-l-utiliser/
Je m'en inspire ... a suivre

Attention avec la TObjectList à ce qu'elle ne prenne pas la possession des composants, ça pourrait générer des anomalies lors de la fermeture des programmes ou fiches.

Après avoir étudié la discussion que je citais plus haut, j'ai choisi de suivre ce que dit Gilbert Geyer à savoir utiliser une TStringList car elle manipule autant les chaines que les objets.

Toutefois, j'ai un soucis. :calim2:
J'espère mettre suffisamment d'info ...

Contexte : j'ai 7 Tpanel qui contiennent chacun un TEdit, entre autre.
Les TPanels peuvent être arrangés dans n'importe quel ordre.

Une variable globale.

Code:

---

ListeTEdit : TStringList;

---

Une StringGrid qui me permet de facilement permuter les lignes

Code:

---

1 2 3 4 5 6 7

StringParams.Rows[1].CommaText := 'PIECE,'+IntToStr(Panel_PIECE.Width); StringParams.Rows[2].CommaText := 'REGLEMENT,'+IntToStr(Panel_REGLEMENT.Width); StringParams.Rows[3].CommaText := 'DATE,'+IntToStr(Panel_DATE.Width); StringParams.Rows[4].CommaText := 'COMPTE,'+IntToStr(Panel_COMPTE.Width); StringParams.Rows[5].CommaText := 'LIBELLE,'+IntToStr(Panel_LIBELLE.Width); StringParams.Rows[6].CommaText := 'DEBIT,'+IntToStr(Panel_DEBIT.Width); StringParams.Rows[7].CommaText := 'CREDIT,'+IntToStr(Panel_CREDIT.Width);

---

Je remplis cette TStringList avec le contenu de la StringGrid. TStringList va contenir le Hint du TPanel pour identification et l'objet TPanel : TStringList(Chaine,Objet)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

ListeTEdit:=TStringList.Create; ListeTEdit.Sorted := false; for X := 1 to StringParams.RowCount do begin if StringParams.Cells[0,X] = Panel_PIECE.Hint then for Y:=0 to Panel_PIECE.ControlCount-1 do if (Panel_PIECE.Controls[Y] is tEdit) then ListeTEdit.AddObject(Panel_PIECE.Hint,TEdit(Panel_PIECE.Controls[Y]));   ...//... pour chacun de TPanel   end;

---

Pour faire mon SetFocus sur le TEdit suivant celui dans lequel je suis, je fais ceci et c'est là que j'ai un soucis
Dans TEditKeyPress

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Var X, Y : Integer; begin if Key = chr(13) then begin X := ListeTEdit.IndexOf(TEdit(Sender).Hint); if (X > -1) and (X+1 <= ListeTEdit.Count-1) then begin for Y := 0 to TPanel(ListeTEdit.Objects[X+1]).ControlCount-1 // ICI J'AI L'ERREUR : TPanel.ControlCount = 2 hors là = 0 do if (TPanel(ListeTEdit.Objects[X+1]).Controls[Y] is tEdit) then TEdit(TPanel(ListeTEdit.Objects[X+1]).Controls[Y]).SetFocus; end; end; end;

---

Quand j'utilise le vrai nom du TPanel, son ControlCount contient bien 2 contrôles
Dans la procédure TPanel(ListeTEdit.Objects[X+1]).ControlCount = 0

Quelqu'un voit un truc qui ne vas pas ?

Bon, j'ai trouvé ... la nuit fut bonne conseillère :)

Je mets un TEdit dans la StringGrid (ligne 8 du code 3)

Code:

---

then ListeTEdit.AddObject(Panel_PIECE.Hint,TEdit(Panel_PIECE.Controls[Y]));

---

Je recherche un TEdit mais dans un TPanel qui est sensé être dans la TStringGrid (Ligne 12 du code 4)

Code:

---

then TEdit(TPanel(ListeTEdit.Objects[X+1]).Controls[Y]).SetFocus;

---

Ce qui est incohérent.
Il faut chercher un TEdit dans la TStringGrid

Code:

---

TEdit(ListeTEdit.Objects[X+1]).SetFocus;

---

Et ça fonctionne super!