[DUG]: File browser

[Alistair George]

Thanks Wade, but thats Win 95 specific.
> If you want to select a directory, what's wrong with using
> SHBrowseForFolder?
The following works, and doesnt use another component, but I HATE using
Cancel!:

procedure TCamForm.SetDIR1Click(Sender: TObject);
begin
  setdir1.Tag := 1; {use the tag for a global switch}
  Openpic1.Title := 'Select Directory, Then press CANCEL button';
  OpenPic1.Execute;
end;

procedure TCamForm.OpenPic1Close(Sender: TObject);
begin
  if setdir1.Tag = 1 then
  begin
    setdir1.Tag := 0;
    Openpic1.Title := 'Open';
    r.WriteString('iDIR', openpic1.InitialDir);
  end;
{then in formcreate, to get the stored iDIR}
  try
    r.ReadString('iDIR');
    openpic1.InitialDir := r.ReadString('iDIR');
    savepic1.InitialDir :=  openpic1.InitialDir;
  except r.WriteString('iDIR', openpic1.InitialDir);
  end;

---------------------------------------------------------------------------
    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz