Ce tutorial a pour but de vous familiarisé avec les composants TShellTreeView et TShellListView disponible à partir de la version 6 de Delphi.

Nous allons créer un explorateur de fichiers à l'aide de ses deux composants.



Créez un nouveau projet Delphi.
Ajoutez un composant TPanel et TStatusBar.

Mettez la propriété "Align" du composant TPanel à "alTop". Placez un composant TRadioButton sur le composant TPanel.
Ajouter quatre valeurs grâce à la propriété "Items" : "Détails", "Icône larges", "Icônes petits" et "Liste". Mettez sa propriété "Columns" à "4".

Créez un nouveau panel au statusbar. Pour cela, sélectionnez le composant statusbar que vous venez d'ajouter. Allez dans l'inspecteur d'objet sur la propriété "Panels" et double cliquer dessus. Puis, cliquez sur le bouton "Ajouter un nouvelle élément".

Ajoutez également un composant TShellListView de l'onglet "Exemples" de la palette de composants de Delphi. Mettez sa propriété "Align" à "alLeft".

Ajoutez un composant TSplitter et mettez sa propriété "Align" à "alLeft".

Ajoutez un composant TShellListView et mettez sa propiété "Align" à "alClient". Mettez sa propriété "ViewStyle" à "vsReport".

Pour terminer, nous allons relier ensemble les composants TShellTreeView et TShellListView. Pour cela, il suffit d'indiquer dans la propriété "ShellListView" du composant TShellTreeView la valeur "ShellListView1".

Nous passons maintenant à la partie programmation.

Modifier l'aspect du composant TShellListView

Il suffit pour cela de jouer sur la propriété "ViewStyle" du composant.

procedure TForm1.RadioGroup1Click(Sender: TObject); begin Case RadioGroup1.ItemIndex of 0:ShellListView1.ViewStyle:=vsReport; 1:ShellListView1.ViewStyle:=vsIcon; 2:ShellListView1.ViewStyle:=vsSmallIcon; 3:ShellListView1.ViewStyle:=vsList; end; end;

Afficher le chemin dans le statusbar

Pour cela, on utilise le composant TShellListView et son événement "OnChange".

procedure TForm1.ShellTreeView1Change(Sender: TObject; Node: TTreeNode); begin StatusBar1.Panels[0].Text:=ShellListView1.RootFolder.PathName; end;

Explorateur de fichiers    [ 21-12-2003 ]  Exemple d'utilisation les composants TShellTreeView et TShellListView. Télécharger :  [6 Ko] [ exploratfich.zip] Auteur : Yoann Site internet : http://delphipage.free.fr/