Discussion :

[jcs2]

A l'ouverture du TTreeview, en l'occurence il s'agit de l'arborescence des dossiers de l'ordinateur, j'aimerais pouvoir me positionner sur un dossier dont je connais l'identité.

Est-ce possible? Je n'ai rien trouvé dans la FAQ, ni dans l'aide de Delphi.

Merci.

[MedGIR]

Salut, il me semble qu'il n'existe aucune fonctions predefinie dans delphi pour cela, mais rien ne t'empeche de t'en créer une... par exemple, essaie ce petit bout de code, en créant une nouvelle application en inserant 3 controles (1 Ttreeview, 1 tbuton, et un tEdit) sur la form principale.

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;
 
type
  TForm1 = class(TForm)
    TreeView1: TTreeView;
    Button: TButton;
    Edit: TEdit;
    procedure ButtonClick(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    function GetNodeByText(Treeview : TTreeview; Text:string):TTreenode;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function TForm1.GetNodeByText(Treeview : TTreeview; Text: string): TTreenode;
var
  CurrentNode : TTreenode;
begin
  Result := nil;
  CurrentNode := Treeview.Items.GetFirstNode;
  while CurrentNode <> nil do
  begin
    if CurrentNode.Text = Text then
    begin
      Result := CurrentNode;
      exit;
    end;
    CurrentNode := CurrentNode.GetNext;
  end;
end;
 
procedure TForm1.ButtonClick(Sender: TObject);
begin
  try
    TreeView1.Selected := GetNodeByText(TreeView1,Edit.Text );
    ActiveControl := TreeView1;
  except
 
  end;
end;

[jcs2]

Merci pour ta réponse, MedGIR

J'ai essayé ton code. Il fonctionne très bien, sauf qu'il ne s' applique qu'à la partie de l'arbre qui est développée.
Dans mon cas où je veux atteindre un dossier quelconque de l'ordinateur, il faudrait que je développe entièrement tous les dossiers, ce qui est inimaginable.

J'ai trouvé un composant visuel (Exemples) qui malheureusement est absent de l'aide de Delphi 7: TShellTreeView, qui répond exactement à mon besoin.

Se positionner sur un dossier donné est prévu et voici le code d'une unité réalisant le choix d'un dossier avec initialisation, finalement c'est très simple encore fallait-il mettre la main dessus:

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
38
39
40
41
42
43
44
45
46
unit ChoixDossier;
 
interface
 
uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, ComCtrls, ShellCtrls, StdCtrls;
type
  TDossierForm = class(TForm)
    ShellTreeView: TShellTreeView;
    EditDossierChoisi: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure ShellTreeViewChange(Sender: TObject; Node: TTreeNode);
  private 
  { Déclarations privées }
  public  
  { Déclarations publiques }
  end;
var
  DossierForm  : TDossierForm;
  DossierChoisi: string;
const
  DossierInitial = 'D:\Developpement\Pte';
 
implementation
 
{$R *.dfm}
 
procedure TDossierForm.FormCreate(Sender: TObject);
begin
  ShellTreeView.Path := DossierInitial;  // positionnement initial
  DossierChoisi      := '';
end;
 
procedure TDossierForm.ShellTreeViewChange(Sender: TObject;
  Node: TTreeNode);
begin
  with Node do if ( AbsoluteIndex<> 0 ) then 
  begin                                         
    Selected      := TRUE;
    ActiveControl := ShellTreeView;
    DossierChoisi := ShellTreeView.Path;     
  end;
  EditDossierChoisi.Text := DossierChoisi; // affichage du dossier choisi
end;
 
end.

Merci encore de t'intersser à cette question. Je crois que je vais en proposer
une FAQ car avant de trouver la réponse idoine j'ai passé beaucoup de temps.