Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   TBrowseForFolder Abbrechen erkennen (https://www.delphipraxis.net/214400-tbrowseforfolder-abbrechen-erkennen.html)

TurboMagic 5. Jan 2024 21:24

TBrowseForFolder Abbrechen erkennen
 
Hallo,

ich benutze die VCL TBrowseForFolder Action um einen Ordner auswählen zu lassen.
Ich benutze das wie folgt:

Delphi-Quellcode:
var
  nFolder: TBrowseForFolder;
begin
     nFolder:= TBrowseForFolder.Create(nil);
     try
        nFolder.BrowseOptions:= [bifDontGoBelowDomain, bifNewDialogStyle ];
        nFolder.UseFileDialog:= True;
        nFolder.Folder:= nInitFolder;
        if nFolder.Execute then
          SelectedFolder := nFolder.Folder
        else
          Result := false;
     except
        on E: exception do
           begin
              Result := false;
              Exit;
           end;
     end;
nInitFolder ist ein String mit einem evtl. in der letzten Programmsitzung
ausgewählten Ordner.

Nur: drückt der Anwender "Abbrechen", ist if nFolder.Execute trotzdem true,
weil das ja was anderes aussagt. Wie bekomme ich also raus, dass Abbrechen
angeklickt wurde?

Grüße
TurboMagic

Uwe Raabe 5. Jan 2024 21:49

AW: TBrowseForFolder Abbrechen erkennen
 
Dafür gibt es ExecuteResult: http://docwiki.embarcadero.com/Libra....ExecuteResult

Delphi.Narium 5. Jan 2024 21:52

AW: TBrowseForFolder Abbrechen erkennen
 
Suchst Du danach? Use TBrowseForFolder the right way

TurboMagic 6. Jan 2024 09:10

AW: TBrowseForFolder Abbrechen erkennen
 
Zitat:

Zitat von Uwe Raabe (Beitrag 1531533)

Danke, das war der für die Situation passende Lösungsansatz. Den anderen mit dem Event schätze ich natürlich auch,
der hätte aber mehr Änderungen am Programmablauf erfordert.


Alle Zeitangaben in WEZ +1. Es ist jetzt 09:18 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz