Delphipage - la reference en Delphi
Accueil - Astuces - Composants - Programmes - Tutoriaux - Livres - Liens
 Sources
- Astuces
- Composants
- Programmes
- Tutoriaux
 Rechercher
- Delphipage
- Ngscan
 Ressources
- Lexique Delphi
- Livres
- News
- Patchs Delphi
 Liens
- Borland France
- CodeGear
- Les meilleurs sites


Tutoriaux - Explorateur de fichiers

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] [Télécharger exploratfich.zip]

Auteur : Yoann
Site internet :
http://delphipage.free.fr/
 

Tous droits réservés - Contacts
Haut de la page