Ugly 16 bit Version ...
 
 
(button1Click)
Var sDir:String;
begin
  inherited;
 if  txtDir.Text = '' then sDir := sExePath else sDir := txtDir.Text;
if (SelectDirectory(sDir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP)) then
 begin
  Do stuff
 end;


From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of David O'Brien
Sent: Wednesday, 12 January 2005 3:26 p.m.
To: 'NZ Borland Developers Group - Delphi List'
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

Reply via email to