[tavoc]

Hi,

und wieder ein Delphi Problem, wenn ich eine Art Explorer in Delphi haben möchte nehme ich die ShellTreeView, sofern so gut.

Wenn ich nun eine neue Datei erstelle soll er diese da auch anzeigen, leider geht das nur auf C, wenn ich auf D einen Ordner erstelle macht er das zwar, aber er zeigt es nicht an.

Hier ist der code, ich hoffe ihr könnt sagen was dran falsch ist.

procedure TForm1.Button1Click(Sender: TObject);
VAR
     CurrDir  : String;
     Lcount   : Integer;
     TreeNode : TTreenode;
     item     : TListItem;

begin
     CurrDir:=ShellTreeView1.Path;
     if CurrDir[length(CurrDir)]<>'\' then
     begin
          CurrDir:=CurrDir+'\';
     end;
     CurrDir:=CurrDir+'Neuer Ordner\';
     if CreateDir(CurrDir)=false then
     begin
          MessageDlg('Fehler beim Erstellen des Verzeichnisses',mtError,[mbOK],0);
          Exit;
     end;

     ShellTreeView1.Refresh(ShellTreeView1.Topitem);

end;

EDIT: wenn ich auf D einem Ordner im zugeklappten Modus erstelle und dann die Unterordner anzeigen lass geht es, nur wenn ich D auswähle und die Unterordner sehe geht es nicht. Wenn ich aber voher irgendwas auf D mache, z.b. Ordner löschen dann kann ich auch einen neuen erstellen und anzeigen lassen.

Es kommt mir so vor als ob diese Partition erst initialisiert werden muss oder so.


Der Fehler liegt meiner Meinug irgendwie in der letzten Zeile, da dies ja für das aktualisieren zuständig ist, der erste Teil geht ja ohne Probleme.


Thx

Dieser Beitrag wurde von tavoc bearbeitet: 22. Januar 2005 - 01:16

[tavoc]

dann habe ich heute noch gefunden, wenn man dem shelltreeview von anfang an sagt das er nur d anzeigen soll, also nicht den ganzen dsktop/arbeitsplatz, dann geht auch alles.

Nur möchte ich gern den Arbeitsplatz als erstes haben, bei oben genannter Variante kann ich nur auf d zugreifen und nirgendwo sonst.

[tavoc]

Problem hat sich erledigt,

ich weiß zwar nicht warum mein selbst erstelltes shelltreeview nicht ging, aber wenn ich statt dieser die beispielkomponente von delphi nehme ( shelltreeview, sieht genauso aus) funktioniert der befehl

ShellTreeView1.Refresh(ShellTreeView1.Topitem);

und zwar genauso wie es oben steht, scheint wohl irgendwo nen fehler in delphi zu sein.