+ vorm Ordnere in der ShellTreeView

[SaFu]

Hi hab mal ne Frage

Bekommt man eigentlich das + zeichen zum öffnen der unterordner irgendwie weg??? ind der ShellTreeview

gruss sascha

[bitsetter]

Hi,

meinst du das?
ShellTreeView1.ShowButtons:= false;

[SaFu]

genau das wars
jetzt hab ich nur das Problem das ich gedacht habe, das ich die unter ordner nicht mehr aufmachen kann, aber das geht ja trotzdem noch per doppelklick auf den ordner,
kann man das auch abschalten das das nicht mehr geht.

[bitsetter]

Man könnte noch im onExpanding das Aufklappen verhindern:

Delphi-Quellcode:

procedure TForm1.ShellTreeView1Expanding(Sender: TObject; Node: TTreeNode;
  var AllowExpansion: Boolean);
begin
  if Node <> ShellTreeView1.Items.Item[0] then
    AllowExpansion := false;
end;

Edit: Code geändert, habe noch was besseres gefunden.

[SaFu]

Das war genau das was ich gesucht habe

kann mann eigentlich einen Ordner definieren bei dem das gehen soll un bei den anderen so es ganz normal fünktionieren??

nur ne frage das eigentliche problem ist gelöst

Danke

[angos]

Hi,

ja das ist möglich in dem du das Event von oben noch ein bisschen änderst. Folgender Code lässt das expanden nur bei dem ersten Node zu

Delphi-Quellcode:

procedure TForm1.TreeViewExpanding(Sender: TObject; Node: TTreeNode;
  var AllowExpansion: Boolean);
begin
  if Node = TreeView.Items[0] then
    AllowExpansion := True
  else
    AllowExpansion := False;
end;

gruß

[mirage228]

Zitat von angos:

Delphi-Quellcode:

procedure TForm1.TreeViewExpanding(Sender: TObject; Node: TTreeNode;
  var AllowExpansion: Boolean);
begin
  if Node = TreeView.Items[0] then
    AllowExpansion := True
  else
    AllowExpansion := False;
end;

Lieber so...

Delphi-Quellcode:

procedure TForm1.TreeViewExpanding(Sender: TObject; Node: TTreeNode;
  var AllowExpansion: Boolean);
begin
  AllowExpansion := Node = TreeView.Items[0];
end;

mfG
mirage228

[angos]

jup, hast recht, ist übersichtlicher. Kommt aber aufs gleiche raus.

[SaFu]

Und wenn ein weiterer Node zugelassen werden soll

bei mir ist es z.b. so C:\Dokumente und Einstellungen\Ordner1\Ordner2\

da die shellTreeview ja schon den ersten anlegt (Ein Fehler der Komponente???)

bei soll man alles unter dem ordner 2 nicht mehr öffnen können wie erweiter ich dann das Node

[bitsetter]

Zitat von angos:

Hi,

ja das ist möglich in dem du das Event von oben noch ein bisschen änderst. Folgender Code lässt das expanden nur bei dem ersten Node zu

Delphi-Quellcode:

procedure TForm1.TreeViewExpanding(Sender: TObject; Node: TTreeNode;
  var AllowExpansion: Boolean);
begin
  if Node = TreeView.Items[0] then
    AllowExpansion := True
  else
    AllowExpansion := False;
end;

Hallo,

genau das gleiche machte mein Code übrigens auch.

Zitat von fuknersascha:

Und wenn ein weiterer Node zugelassen werden soll

bei mir ist es z.b. so C:\Dokumente und Einstellungen\Ordner1\Ordner2\

Delphi-Quellcode:

procedure TForm1.ShellTreeView1Expanding(Sender: TObject; Node: TTreeNode;
  var AllowExpansion: Boolean);
var
  i: integer;
begin
  for i := 0 to TShellTreeView(Sender).Items.Count - 1 do
    if TShellTreeView(Sender).Items.Item[i]= Node then
      if TShellTreeView(Sender).Folders[i].PathName= 'C:\Dokumente und Einstellungen\Ordner1\Ordner2' then
        exit;
 AllowExpansion:= Node= TShellTreeView(Sender).Items.Item[0];
end;

Jetzt werden vom ersten Ordner die Unterordner angezeigt und gegeben falls auch vom Ordner 'C:\Dokumente und Einstellungen\Ordner1\Ordner2'. Eventuell muss man noch die Groß- und Kleinschreibung des Pfades beachten. Kann natürlich sein, dass es da noch was besseres gibt.

EDIT: habe jetzt doch noch eine einfachere Möglichkeit gefunden:

Delphi-Quellcode:

procedure TForm1.ShellTreeView1Expanding(Sender: TObject; Node: TTreeNode;
  var AllowExpansion: Boolean);
begin
  if TShellTreeView(Sender).Folders[Node.AbsoluteIndex].PathName <> 'C:\Dokumente und Einstellungen\Ordner1\Ordner2' then
    AllowExpansion:= Node= TShellTreeView(Sender).Items.Item[0];
end;