focus entre deux listbox

Salut,
J'ai deux listbox : celle de gauche (listDirs) contient des dossiers et celle de droite (listFiles) contient les fichiers contenus dans le dossier sélectionné a gauche. Je cherche à faire en sorte que quand on est dans la liste des dossiers et qu'on appuie sur la flèche droite on se retouve dans la liste des fichiers et inversement quand on est dans la liste des fichiers et qu'on appuie sur flèche gauche on se retrouve dans la liste des dossiers.

Pour l'instant j'ai fait ca :

Code:

---

1 2 3 4 5 6

procedure TfmMain.listDirsKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (Key = VK_RIGHT) then listFiles.SetFocus; end;

---

Ca marche presque mais le problème c'est que juste avant de passer à la liste des fichiers, dans ma liste des repertoires, l'item courant est incrémenté et donc à chaque fois s'affichent dans listFiles les mauvais fichiers.

J'ai pensé à faire un

Code:

---

listDirs.itemindex := listDirs.itemindex - 1

---

juste avant de changer le focus mais je trouve ç apas très propre.
Merci d'avance.

Euh....Exit dans le if ?

Code:

---

1 2 3 4

if (Key = VK_RIGHT) then begin listFiles.SetFocus; exit; end;

---

Peut-être même avec un RAZ de Key.

Si on suppose que c'est l'appui sur la flèche droite qui produit le déplacement dans la ListBox, il suffit d'écrire :

Code:

---

1 2 3 4 5 6 7 8 9

procedure TfmMain.listDirsKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (Key = VK_RIGHT) then begin listFiles.SetFocus; Key := #0; end; end;

---

Merci, j'ai testé les deux solutions mais aucunes des deux ne marchent.

Code:

---

1 2 3 4 5 6 7 8 9 10

procedure TfmMain.listDirsKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (Key = VK_RIGHT) then begin ShowMessage('toto'); listFiles.SetFocus; Exit; end; end;

---

La messagebox s'affiche clairement avant que ne soit fait l'incrémentation qui a encore lieu. Le "Exit" est lui aussi bien réalisé. Je ne comprends pas... D'autres idées ?

Bonjour,

J'ai vérifié sur une appli existante avec 2 listbox dépendantes :
même motif, même punition (personne n'avait remarqué ce problème parce que personne n'avait idée d'utiliser le clavier pour passer d'une liste à l'autre).

C'est l'action VK_Right qui en standard fait comme VK_Down,
il fadrait essayer Key :=VK_Space au lieu de Key :=#0

Citation:

---

Envoyé par Graffito

il faudrait essayer Key := VK_Space au lieu de Key :=#0

---

Merci Graffito ça marche nikel !
++

J'avais fait une petite erreur (confusion avec Keypress où Key est de type Char). C'était :

Code:

---

Key := 0

---

qu'il fallait écrire.

Code:

---

Key := #0

---

ne compilait pas :oops:

Mais effectivement, n'importe quel code de touche qui ne produit rien sur un ListBox convient.