Kompnent z wybieraniem katalogów lub plików

0

Poszukuje kompnentu z możliwością wybierania i katalogów i plików zależnie od potrzeby.

0

AA, ktos go zrozumial? :-8

moze TShellListView?

0

Chodzi mi np. o opendialog , w którym mogę wybrać cały katalog lub <ort>pojedyńczy </ort>plik

0

okno do wybierania katalogu:

uses ShlObj;

var
Info: TBrowseInfo;
Buf: array [0..MAX_PATH] of Char;
ResultID: PItemIDList;
ResultDir: array [0..MAX_PATH] of Char;
sciezka: string;
begin
with Info do
begin
hwndOwner := Handle;
pidlRoot := nil;
pszDisplayName := @Buf;
lpszTitle := '<font color="blue">Tytul</span>';
ulFlags := BIF_RETURNONLYFSDIRS;
lpfn := nil;
lParam := 0;
iImage := 0;
end;
ResultID := SHBrowseForFolder(Info);
SHGetPathFromIDList(ResultID, ResultDir);
sciezka:= string(ResultDir);
end;

wybieranie pliku to chyba rodzina dialogow ci wystarczy... :-P

a poza tym mozesz jeszcze uzyc TFileListBox, TDirectoryListBox i TDriveComboBox.

pozdro.

0

Polecam pakiet JVCL ... tam jest coś takiego jak DirectoryDialogChoice..

0

Czarownik! Skąd Ty żeś ten kod wyczarował?

uses FileCtrl;

selectDirectory + F1

(lub selDir lub selectDir - nie pamiętam dokładnie)

A jeśli chodzi o pliki to posłuż się OpenDialogiem.

Jeśli chcesz, żeby użytkownik miał do wyboru - 2 w jednym, to zrób własną formę z DriveComboBox, DirectoryListBox i FileListBox.
I powiedzmy 2 przyciski - ZAŁADUJ KATALOG i OTWÓRZ PLIK

1 użytkowników online, w tym zalogowanych: 0, gości: 1