salut Hauwk:
j'ai utilise le delphi 7 ,j'ai utiliser la composante filelistBox mais j'ai pas trouver dans ses propriétée Defaultdir.
es ce que vous avez une autre solution.
merci pour votre aide.
salut Hauwk:
j'ai utilise le delphi 7 ,j'ai utiliser la composante filelistBox mais j'ai pas trouver dans ses propriétée Defaultdir.
es ce que vous avez une autre solution.
merci pour votre aide.
Zut! Désolé Zidenne, j'utilise des composants qui possédent ces propriétés par défaut, néanmoins vous pourriez essayer celà:
Les propriétés que j'ai utilisé pour le Tfilelistbox:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, FileCtrl; type TForm1 = class(TForm) FileListBox1: TFileListBox;// A placer sur la fiche procedure FormShow(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormShow(Sender: TObject); VAr MonDir: Tdirectorylistbox; begin Mondir:=Tdirectorylistbox.Create(self);// On cré le composant sans l'afficher With Mondir do begin FileList:=filelistbox1;// On lui attribue notre liste de fichiers OpenCurrent();// On simule un double clic sur le répertoire courant end; end; end.
Voilà, à partir de là à vous de jouer. Vous trouverez dans la FAQ tout ce qui vous est nécessaire
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Name := 'FileListBox1'; Parent := Self; Left := 32; Top := 16; Width := 145; Height := 185; FileType := [ftReadOnly, ftHidden, ftSystem, ftVolumeID, ftDirectory, ftArchive, ftNormal]; ItemHeight := 16; ShowGlyphs := True; TabOrder := 0;
Cordialement,
Hauwke
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager