Discussion :

[Charly910]

Bonjour,
dans un ShellListView, j'affiche la liste des répertoires et des fichiers.

Quand on double clique sur un fichier, l'application associée au type de fichier s'ouvre automatiquement.

Je voudrais que, lors d'un double clic :

- mon code dans OnDblClick s’exécute si c'est un fichier (sans ouverture de l'appli associée au fichier) ;
- que le répertoire change si c'est un répertoire ;

Est ce possible ? je n'ai rien vu dans les propriétés du ShellListView.

Merci pour vos réponses

A+
Charly

[ThWilliam]

Bonjour,

Il y a la propriété AutoNavigate.
Si tu l'initialises à false + le code suivant dans l'événement OnDblClick :

Code :

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

1
2
3
4
with ShellListView1 do
    if (Selected <> nil) then
       with Folders[Selected.Index] do
          if IsFolder then ExecuteDefault;

Cordialement
Thierry

[Charly910]

Merci William,

j'ai testé ta solution, mais ce n'est pas tout à fait ce que je veux : quand on double clique sur un répertoire, l'explorateur de fichier s'ouvre.

J'ai adopté une autre solution "à l'arrache" mais qui fonctionne :

j'ai recopié et ajouté à mon projet ShellCtrls.pas et j'ai modifié la procédure DblClick du ShellListview comme suit :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TCustomShellListView.DblClick;
begin
  if FAutoNavigate and (Selected <> nil) then
    with Folders[Selected.Index] do
      if IsFolder then
        SetPathFromID(AbsoluteID)  
      else
         F_Princ.TraiteFichier ;
//        ShellExecute(Handle, nil, PChar(PathName), nil,
//          PChar(ExtractFilePath(PathName)), 0);
  inherited DblClick;
end;

Si je ne trouve pas mieux je vais conserver cette solution

A+
Charly

[ThWilliam]

Bonjour Charly.

Je suppose que F_Princ désigne ta TForm principale.
Tu as donc du déclarer dans ShellCtrls.pas l'unité de F_Princ.
Bien sûr, cela marche, mais une manière plus "propre" serait d'ajouter un événement du genre OnTraiteFichier.
Dans TCustomShellListView :
champ privé : FOnTraiteFichier: TNotifyEvent
propriété publique : property OnTraiteFichier: TNotifyEvent read FOnTraiteFichier write FOnTraiteFichier

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TCustomShellListView.DblClick;
begin
  if FAutoNavigate and (Selected <> nil) then
    with Folders[Selected.Index] do
      if IsFolder then
        SetPathFromID(AbsoluteID)  
      else
         if Assigned(FOnTraiteFichier) then FOnTraiteFichier(self);
  inherited DblClick;
end;

Bon dimanche à toi
Thierry

[Charly910]

Bonjour William,

ta solution est évidement la meilleure !

Merci beaucoup
A+
Charly