I use the attached function which utilizes the standard Windows Browse for Folder dialog.
 
Add it to your uses clause and use it like this.
 
procedure TMainForm.BrowseFolderClick(Sender: TObject);
var
  dir: String;
begin
  dir := Folder.Text;
  if SelectFolder(_('Select a destination folder'),'',dir,Application.Handle) then

    PlayListFolder.Text := dir;
end;
 
Regards,
Ross Levis.
-----------------------------------
----- Original Message -----
Sent: Wednesday, January 12, 2005 3:26 PM
Subject: [DUG] Folder Selection

Just a quickie, and one that�s annoyed me for a while. What standard dialog do I use to select a folder? I have always resorted to third party components, but there must be a standard one?

 


_______________________________________________
Delphi mailing list
[email protected]
http://ns3.123.co.nz/mailman/listinfo/delphi

Attachment: SelectDirectory.pas
Description: Binary data

_______________________________________________
Delphi mailing list
[email protected]
http://ns3.123.co.nz/mailman/listinfo/delphi

Reply via email to