Class TsBrowseFolderDialog (unit sBrowseFolder) |
Inherits from
TsCustomDialog
TBrowseFolder
constructor Create(AOwner: TComponent);
- TsBrowseFolderDialog} //--------------------------------------------------------------------------------------------------------//
procedure EnableOK( const Value: Boolean);
--------------------------------------------------------------------------------------------------------// {Use this function to enable/disable the OK button of the browse dialog from within one of the TsBrowseFolderDialog event handlers
function Execute: Boolean;
Use this function to show the browse dialog.
procedure SetSelectionPath( const Path: String);
--------------------------------------------------------------------------------------------------------// {Use this function to set the selection of the browse dialog manually from within one of the TsBrowseFolderDialog event handlers
procedure SetSelectionPIDL( const ItemIDList: PItemIDList);
--------------------------------------------------------------------------------------------------------// {Use this function to set the selection of the browse dialog manually from within one of the TsBrowseFolderDialog event handlers
procedure SetStatusText( const StatusText: String);
--------------------------------------------------------------------------------------------------------// {Use this function to set the status text of the browse dialog from within one of the TsBrowseFolderDialog event handlers
function GetDirectory: String;
--------------------------------------------------------------------------------------------------------//
procedure SetDirectory(Value: String);
--------------------------------------------------------------------------------------------------------//
procedure SetFolder( Value: TSHFolders);
--------------------------------------------------------------------------------------------------------//
property CallbackParam : LPARAM
property Directory : String
property Folder : TSHFolders
property Options : TBrowseInfoOptionSet
property ShowFullPath : Boolean
property Title : String
property BrowseDialogShowing : Boolean
property DisplayName : String
property hwnd : HWND
property ImageIndex : Integer
event OnInitialized : TBrowserInitializedEvent
event OnSelectionChanged : TSelectionChangedEvent
FBrowseDialogShowing : Boolean;
FCallbackParam : LPARAM;
FDirectory : String;
FDisplayName : String;
FFolder : TSHFolders;
Fhwnd : HWND;
FImageIndex : Integer;
FOnInitialized : TBrowserInitializedEvent;
FOnSelectionChanged : TSelectionChangedEvent;
FOptions : TBrowseInfoOptionSet;
FShowPathInStatusArea : Boolean;
FTitle : String;
constructor Create(AOwner: TComponent);
TsBrowseFolderDialog} //--------------------------------------------------------------------------------------------------------//
procedure EnableOK( const Value: Boolean);
--------------------------------------------------------------------------------------------------------// {Use this function to enable/disable the OK button of the browse dialog from within one of the TsBrowseFolderDialog event handlers
function Execute: Boolean;
Use this function to show the browse dialog. While a browse dialog is showing, the program cannot show
another. If for some reason you try to show another dialog while one is already showing, this function
returns an EBrowseDialogAlreadyShowing exception. This shouldn't be a problem unless you try to show the
dialog from several independant threads
procedure SetSelectionPath( const Path: String);
--------------------------------------------------------------------------------------------------------// {Use this function to set the selection of the browse dialog manually from within one of the TsBrowseFolderDialog event handlers
procedure SetSelectionPIDL( const ItemIDList: PItemIDList);
--------------------------------------------------------------------------------------------------------// {Use this function to set the selection of the browse dialog manually from within one of the TsBrowseFolderDialog event handlers
procedure SetStatusText( const StatusText: String);
--------------------------------------------------------------------------------------------------------// {Use this function to set the status text of the browse dialog from within one of the TsBrowseFolderDialog event handlers
function GetDirectory: String;
--------------------------------------------------------------------------------------------------------//
procedure SetDirectory(Value: String);
--------------------------------------------------------------------------------------------------------//
procedure SetFolder( Value: TSHFolders);
--------------------------------------------------------------------------------------------------------//
property CallbackParam : LPARAM
property Directory : String
property Folder : TSHFolders
property Options : TBrowseInfoOptionSet
property ShowFullPath : Boolean
property Title : String
property BrowseDialogShowing : Boolean
property DisplayName : String
property hwnd : HWND
property ImageIndex : Integer
event OnInitialized : TBrowserInitializedEvent
event OnSelectionChanged : TSelectionChangedEvent
FBrowseDialogShowing : Boolean;
FCallbackParam : LPARAM;
FDirectory : String;
FDisplayName : String;
FFolder : TSHFolders;
Fhwnd : HWND;
FImageIndex : Integer;
FOnInitialized : TBrowserInitializedEvent;
FOnSelectionChanged : TSelectionChangedEvent;
FOptions : TBrowseInfoOptionSet;
FShowPathInStatusArea : Boolean;
FTitle : String;