Vælg mappe

Hvad mener du?

I mange programmer kan trykke f.eks. Gennemse/Browse og så kommer der en dialogboks frem hvor man kan vælge en mappe...hvordan får jeg den frem?

Via html kode eller hvad?

Nej vi er i Delphi kategorien....

Undskyld, beklager!

Det er ok.

du laver en alm. knap. Og så en onclick-procedure, hvor du med Shellexecute-kommandoen lægger stien ind - lissom hvis det var et program du ville excekvere.

uses ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute (0,'open','notepad.exe',nil,nil,SW_NORMAL);
end;

I stedet for notepad.exe skriver du stien til dit bib..

janbb -> Jeg tror lige du skal læse mit spørgsmål igen. Man skal i mit program kunne sætte en brugerdefineret sti. Jeg ønsker at åbne en folder-browse dialogboks.

Åh, jeg ser nu du vil have flere end een mulighed - så skal di bare bruge en filedialogbox, den er i fanen under dialogs.

Sådan en her jeg ikke under min dialogs.

de er i win 3.1 fanen. Man kan lave noget a la:
unit Unit7x;



interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  OleCtrls, StdCtrls, SHDocVw_TLB, FileCtrl;

type
  TForm1 = class(TForm)
    OpenDialog1: TOpenDialog;
    Button1: TButton;
    WebBrowser1: TWebBrowser;
    FileListBox1: TFileListBox;
    DirectoryListBox1: TDirectoryListBox;
    procedure Button1Click(Sender: TObject);
   
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}


procedure TForm1.Button1Click(Sender: TObject);
begin

If opendialog1.execute then
begin
Form1.caption:=opendialog1.filename;
  WebBrowser1.Navigate(opendialog1.filename);
end;
end;

end.

man kan så få et 'hint' i de 2 boxe - hvor man skal navigere hen.

Det er noget siden jeg lavede det så jeg kan ikke lige huske om de skal indstilles til at samarbejde, men kan evt checke hvis det giver knuder.

Prøv Borrisholts eksemple:
http://www.borrisholt.com/Win32api/DelphiSource/Browsefor.zip

eller:
http://www.swissdelphicenter.ch/torry/showcode.php?id=1509

Tak! Borrisholts eksempel var meget brugbart. Men hvordan henter jeg den sti ud der er valgt gennem browse folder?

nå nevermind, jeg var ikke lige vågen....det er selvfølgelig den værdi der bliver gemt i Caption..

Den lette ser sådan her ud:

uses
  FileCtrl;

procedure TForm1.Button1Click(Sender: TObject);
var
  Dir: String;
begin
  if SelectDirectory('', '', Dir) then
    ShowMessage('Du har valgt mappen:'#13#10 + Dir);
end;

//hermandsen

Ja okay det var da så betydeligt lettere...Tak

hermandsen> hvor bliver mappestien gemt ??? og kan man evt. lave det sådan at man kan vælge en enkelt fil ?

>>tankbilligt.dk
Mappestien bliver gemt i Dir-variablen... Jeg ved ikke hvordan man laver det så man kan vælge en fil i stedet, men der ville jeg nok selv vælge at bruge TOpenDialog.

//hermandsen