Poszukuje kompnentu z możliwością wybierania i katalogów i plików zależnie od potrzeby.
AA, ktos go zrozumial? :-8
moze TShellListView?
Chodzi mi np. o opendialog , w którym mogę wybrać cały katalog lub <ort>pojedyńczy </ort>plik
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.
Polecam pakiet JVCL ... tam jest coś takiego jak DirectoryDialogChoice..
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