focus entre deux listbox

**krokmitaine** · 12/12/2006, 15h17

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 :

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

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 :

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

listDirs.itemindex := listDirs.itemindex - 1

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

**qi130** · 12/12/2006, 15h33

Euh....Exit dans le if ?

Code :

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

1
2
3
4
if (Key = VK_RIGHT) then begin
    listFiles.SetFocus;
    exit;
end;

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

**rsc** · 12/12/2006, 15h34

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 :

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

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;

**krokmitaine** · 12/12/2006, 17h27

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

Code :

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

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 ?

**Graffito** · 12/12/2006, 18h45

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