Компонент выбора каталога

← →
Project111 (2003-05-26 20:53) [0]

Не могу найти. Есть win 3.1 компонент но хочется win98 компонент... А найти не могу...

← →
Project111 (2003-05-26 21:14) [1]

Ну неужели не знает никто?

← →
Serginio (2003-05-26 21:22) [2]

Приблизительно так
procedure TForm1.Button2Click(Sender: TObject);
var TitleName : string;
lpItemID : PItemIDList;
BrowseInfo : TBrowseInfo;
DisplayName : array[0..MAX_PATH] of char;
TempPath : array[0..MAX_PATH] of char;
begin
FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
BrowseInfo.hwndOwner := Form1.Handle;
BrowseInfo.pszDisplayName := @DisplayName;
TitleName := "Please specify a directory";
BrowseInfo.lpszTitle := PChar(TitleName);
BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
lpItemID := SHBrowseForFolder(BrowseInfo);
if lpItemId <> nil then begin
SHGetPathFromIDList(lpItemID, TempPath);
Edit1.Text:=strPas(TempPath)+"\";
GlobalFreePtr(lpItemID);
end;

end;

← →
Anatoly Podgoretsky © (2003-05-26 21:28) [3]

SelectDirectory

← →
Project111 (2003-05-26 21:37) [4]

Что "SelectDirectory"?, sorry за тупость...

← →
Anatoly Podgoretsky © (2003-05-26 21:42) [5]

Нажми F1 и сразу узнаешь "что", но в переводе Выбрать Каталог

← →
Project111 (2003-05-26 21:58) [6]

Блин, не догоняю я чего-то...

← →
Palladin © (2003-05-26 22:13) [7]

"А может лучьше агрономом стать..." (С) неизвестный

← →
Project111 (2003-05-26 22:18) [8]

Неужели так сложно сказать где находится компонент?
2 A.P. F1 и что?.. нет там ничего...
2Palladin: imho, если не знаешь - лучше молчать, попробуй это правило...

← →
Arch-vile © (2003-05-26 22:30) [9]

imho есть там все
imho2 знает он

← →
Arch-vile © (2003-05-26 22:32) [10]

если не знаешь аглицкого, программировать - дохлый номер. ты же справки не прочитаешь ни одной.
ЗЫ там после F1 нажми на Example и скопируй в проект, запусти, может поможет.

← →
Project111 (2003-05-26 23:00) [11]

Какую справку я должен вызвать?
Просто в Delphi нажать F1?
Можете по-человечески объяснить или нет?, а то, нажми "там"... где там???

← →
Arch-vile © (2003-05-26 23:17) [12]

ставишь курсор на слово SelectDirectory и нажимаешь F1, это слово должно быть написано в Code Editor (такое окошко, в нем набирается текст программ). Второй вариант вызываешь просто хелп (F1), закладка Index, вводишь слово SelectDirectory.
ЗЫ. Выбирать пункт, где еще написано VCL, а не CLX. Если есть только с CLX и одно без надписей, выбирай без этих дополнительных надписей.

← →
Project111 (2003-05-26 23:31) [13]

tnx...

P.S. А нет чего нибудь типа Winamp"овского окна выбора каталога?

Есть. В WinAMPe :)
ЗЫ Винамп сделан на скинах.
ЗЗЫ znx, если сокращать

Функция SelectDirectory выводит как раз окно выбора каталога как в WinAmp"е.

не знаю, я не винампом пользуюсь. помню - скины, наверно же и при выборе директории так же было.

← →
Спрашивающий (2003-05-27 08:47) [17]

Библиотека RxLib компанент TDirectoryEdit хотя не знаю под седьмую Delphi есть ли она, под пятую есть точно

И под седьмую тоже есть

Компонент выбора каталога Найти похожие ветки