Composant filelistBox et propriété Defaultdir

Zut! Désolé Zidenne, j'utilise des composants qui possédent ces propriétés par défaut, néanmoins vous pourriez essayer celà:

Code:

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.

Les propriétés que j'ai utilisé pour le Tfilelistbox:

Code:

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;

Voilà, à partir de là à vous de jouer. Vous trouverez dans la FAQ tout ce qui vous est nécessaire
Cordialement,
Hauwke