Hi zusammen
Irgendwie läuft auf 'wunderliche Weise' alles wieder so, wie es sollte. Ich hatte das Popup aufgerufen, um die Funktion unter 'Wurzelverzeichnis' zu testen. Das funktionierte soweit, dass das Treevie gelöscht und das neue Wurzelverzeichnis angezeigt wurde. Dabei fror allerdings die Anwendung ein, so dass ich sie über den Taskmanager abschiessen musste.
Ein Anklicken und über 'zurücksetzen' den Originalzustandwieder herstellen, war nicht möglich.
Geändert hab ich nicht wirklich viel. Ausser dies:
Delphi-Quellcode:
procedure TOpenFileFrame.Zurcksetzen1Click(Sender: TObject);
begin
if FileSearcher1.RootDir <> 'C:\' then
begin
TVFilesExplorer.Items.Clear;
// FileSearcher1.RootDir := 'C:\'; // <<==
DisplayAllFiles;
end;
end;
Wieso ich das überhaupt auskommentiert hatte, kann ich nicht mehr nachvollziehen. Muss wohl echt spät gewesen sein...
Ist denn die Methode VerzeichniserstellenClick dem OnClick-Ereignis des PopupMenu-Items zugeordnet?
Ja, war sie. ich hab sie auch per Klick im
OI extra nochmal neu ausgewählt.
Momentan nicht wirklich nachvollziehen kann ich, wieso mir die Anwendung eingefroren ist. DisplayAllFiles ist aus der Oncreateprozedur extrahiert und sucht erstmal nach den diversen Laufwerken. Und dazu braucht FileSearcher1 natürlich ein Rootverzeichnis...
Gruss
Delbor