OpenDialog

Når man bruger en alm. opendialog så kan man ikke vælge mapper. Hvis man trykker på en mappe og vælger åben, så åbner den bare mappen. DVS at man kun kan vælge enkelte filer.

Hvordan gør man hvis man vil kunne vælge hele mappen?

Nej.... Der skal du bruge en Browse-For-Folder dialog. Denne findes ikke som visuel kontrol.

Denne kode kan klare det:

Kode 

function BrowseForFolder(var Foldr: string; Title: string): Boolean;
var
  BrowseInfo: TBrowseInfo;
  ItemIDList: PItemIDList;
  DisplayName: array[0..MAX_PATH] of Char;
begin
  Result := False;
  FillChar(BrowseInfo, SizeOf(BrowseInfo), #0);
  with BrowseInfo do begin
    hwndOwner := Application.Handle;
    pszDisplayName := @DisplayName[0];
    lpszTitle := PChar(Title);
    ulFlags := BIF_RETURNONLYFSDIRS;
  end;
  ItemIDList := SHBrowseForFolder(BrowseInfo);
  if Assigned(ItemIDList) then
    if SHGetPathFromIDList(ItemIDList, DisplayName) then begin
      Foldr := DisplayName;
      Result := True;
    end;
end; 

Regner med at du selv kan integrere det...

MH.

The-Freak

Livet er for kort til at kede sig.

Jeg kunne nu godt bruge lidt hjælp til implementeringen. F.eks. vil den ikke acceptere TBrowse... hvad skal uses?
Kan denne kode så kun åbne mapper eller kan den også åbne filer (det skal den nemlig også kunne)?

Kode 

var
  Mappen: String;
begin
  if BrowseForFolder(Mappen, 'Vælg en passende titel her') then
    ShowMessage('Mappen du valgte var: "' + Mappen + '"')
  else
    ShowMessage('Hvorfor valgte du ingen mappe?!');
end;

Når man bruger en alm. opendialog så kan man ikke vælge mapper. Hvis man trykker på en mappe og vælger åben, så åbner den bare mappen. DVS at man kun kan vælge enkelte filer.

Hvordan gør man hvis man vil kunne vælge hele mappen?

Kode 

function BrowseForFolder(var Foldr: string; Title: string): Boolean;
var
  BrowseInfo: TBrowseInfo;
  ItemIDList: PItemIDList;
  DisplayName: array[0..MAX_PATH] of Char;
begin
  Result := False;
  FillChar(BrowseInfo, SizeOf(BrowseInfo), #0);
  with BrowseInfo do begin
    hwndOwner := Application.Handle;
    pszDisplayName := @DisplayName[0];
    lpszTitle := PChar(Title);
    ulFlags := BIF_RETURNONLYFSDIRS;
  end;
  ItemIDList := SHBrowseForFolder(BrowseInfo);
  if Assigned(ItemIDList) then
    if SHGetPathFromIDList(ItemIDList, DisplayName) then begin
      Foldr := DisplayName;
      Result := True;
    end;
end; 

Når man bruger en alm. opendialog så kan man ikke vælge mapper. Hvis man trykker på en mappe og vælger åben, så åbner den bare mappen. DVS at man kun kan vælge enkelte filer.

Hvordan gør man hvis man vil kunne vælge hele mappen?

Nej.... Der skal du bruge en Browse-For-Folder dialog. Denne findes ikke som visuel kontrol.

Denne kode kan klare det:

Kode 

function BrowseForFolder(var Foldr: string; Title: string): Boolean;
var
  BrowseInfo: TBrowseInfo;
  ItemIDList: PItemIDList;
  DisplayName: array[0..MAX_PATH] of Char;
begin
  Result := False;
  FillChar(BrowseInfo, SizeOf(BrowseInfo), #0);
  with BrowseInfo do begin
    hwndOwner := Application.Handle;
    pszDisplayName := @DisplayName[0];
    lpszTitle := PChar(Title);
    ulFlags := BIF_RETURNONLYFSDIRS;
  end;
  ItemIDList := SHBrowseForFolder(BrowseInfo);
  if Assigned(ItemIDList) then
    if SHGetPathFromIDList(ItemIDList, DisplayName) then begin
      Foldr := DisplayName;
      Result := True;
    end;
end; 

Regner med at du selv kan integrere det...

MH.

The-Freak

Livet er for kort til at kede sig.

Prøvede selv med Shellapi..det virker ikke.














-------------------------------------------------------
Jonas (Decko)
http://www.growyourownshit.com/users/Decko
-------------------------------------------------------

Prøvede selv med Shellapi..det virker ikke.














-------------------------------------------------------
Jonas (Decko)
http://www.growyourownshit.com/users/Decko
-------------------------------------------------------

Du skal tilføje flg til Uses: ShlObj

MH.

The-Freak

Livet er for kort til at kede sig.

Prøvede selv med Shellapi..det virker ikke.














-------------------------------------------------------
Jonas (Decko)
http://www.growyourownshit.com/users/Decko
-------------------------------------------------------

Du skal tilføje flg til Uses: ShlObj

MH.

The-Freak

Livet er for kort til at kede sig.

Der kommer følgende fejl nu ved Application.Handle. Der skal vel uses et eller andet her også, men hvad?


[Redigeret d. 11/07-04 12:16:07 af Torsten Menzel]

Laver du en konsol applikation?

MH.

The-Freak

Livet er for kort til at kede sig.