Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Dialog

1.8K
20 января 2003 года
snaiper
39 / / 11.11.2002
Вот сколько в делфи работаю, и не знаю,
есть ли диалог выбора директории только
наподобии opnedialog.....
помогите плиз.
Что б выбрать аутпут директорию.....
Заранее благодарю !
525
21 января 2003 года
December
82 / / 20.08.2000
Цитата:
Originally posted by snaiper
Вот сколько в делфи работаю, и не знаю,
есть ли диалог выбора директории только
наподобии opnedialog.....
помогите плиз.
Что б выбрать аутпут директорию.....
Заранее благодарю !


BrowseDirectory

1.8K
21 января 2003 года
snaiper
39 / / 11.11.2002
Цитата:
Originally posted by December

BrowseDirectory

1.8K
21 января 2003 года
snaiper
39 / / 11.11.2002
Цитата:
Originally posted by December

BrowseDirectory


А это как используется ?
Плиз, мини ехампл

2.0K
21 января 2003 года
Voha
74 / / 20.01.2003
Я пользуюсь ShellTreeView1 на вкладке Samples (D6)
мне нравиться.
ShellTreeView1.Path и получаешь путь к директории.
Попробуй может понравиться.
1.8K
21 января 2003 года
snaiper
39 / / 11.11.2002
Цитата:
Originally posted by Voha
Я пользуюсь ShellTreeView1 на вкладке Samples (D6)
мне нравиться.
ShellTreeView1.Path и получаешь путь к директории.
Попробуй может понравиться.



Дело в том, что я не хочу ставить д6, т.к. тачка сильно нагруженна....
Сейчас у меня делфи5, вот в нём есть такая фича ?

2.0K
21 января 2003 года
Voha
74 / / 20.01.2003
Я с Д5 давно спрыгнул и не помню. посмотри на вкладке Samples. эта вкладка на панели компонент точно должна быть.
И почему ты думаешь что Д6 намного больше потребует ресурсов чем Д5?. Я этого не заметил
525
21 января 2003 года
December
82 / / 20.08.2000
Цитата:
Originally posted by Voha
Я с Д5 давно спрыгнул и не помню. посмотри на вкладке Samples. эта вкладка на панели компонент точно должна быть.
И почему ты думаешь что Д6 намного больше потребует ресурсов чем Д5?. Я этого не заметил


А я заметил. И грузится дольше.

wstr:string;

if BrowseDirectory(wstr,'Select folder ...',0)
then
begin
edit14.Text:=wstr;
end;{if}

1.8K
22 января 2003 года
snaiper
39 / / 11.11.2002
Цитата:
Originally posted by December

А я заметил. И грузится дольше.

wstr:string;

if BrowseDirectory(wstr,'Select folder ...',0)
then
begin
edit14.Text:=wstr;
end;{if}


Говорит что не знает BrowseDirectory:
[Error] Unit1.pas(99): Undeclared identifier: 'BrowseDirectory'

525
22 января 2003 года
December
82 / / 20.08.2000
Цитата:
Originally posted by snaiper

Говорит что не знает BrowseDirectory:
[Error] Unit1.pas(99): Undeclared identifier: 'BrowseDirectory'



uses
...Dialogs, FileUtil; - не помню, что именно из этого.

1.8K
22 января 2003 года
snaiper
39 / / 11.11.2002
Цитата:
Originally posted by December


uses
...Dialogs, FileUtil; - не помню, что именно из этого.


Dialogs стоит , но не помогает !
А вот FileUtil у мя нету ! =(
[Fatal Error] Unit1.pas(7): File not found: 'FileUtil.dcu'

525
22 января 2003 года
December
82 / / 20.08.2000
Цитата:
Originally posted by snaiper

Dialogs стоит , но не помогает !
А вот FileUtil у мя нету ! =(
[Fatal Error] Unit1.pas(7): File not found: 'FileUtil.dcu'


Вообще-то стандартный модуль.
Попробуй задать поиск текста по папке дельфийской, где-то должно быть его объявление.

Вот, на всякий случай, пример из MS SDK HELP - альтернатива, если не найдёшь простой вариант.

The following example uses the SHBrowseForFolder function to prompt the user for a program group. The Programs directory is specified as the root.

// Main_OnBrowse - browses for a program folder.
// hwnd - handle of the application's main window
//
// Uses the global variable g_pMalloc, which is assumed to point
// to the shell's IMalloc interface.
void Main_OnBrowse(HWND hwnd)
{
BROWSEINFO bi;
LPSTR lpBuffer;
LPITEMIDLIST pidlPrograms; // PIDL for Programs folder
LPITEMIDLIST pidlBrowse; // PIDL selected by user

// Allocate a buffer to receive browse information.

if ((lpBuffer = (LPSTR) g_pMalloc->lpVtbl->Alloc(
g_pMalloc, MAX_PATH)) == NULL)
return;

// Get the PIDL for the Programs folder.
if (!SUCCEEDED(SHGetSpecialFolderLocation(
hwnd, CSIDL_PROGRAMS, &pidlPrograms))) {
g_pMalloc->lpVtbl->Free(g_pMalloc, lpBuffer);
return;
}

// Fill in the BROWSEINFO structure.
bi.hwndOwner = hwnd;
bi.pidlRoot = pidlPrograms;
bi.pszDisplayName = lpBuffer;

bi.lpszTitle = "Choose a Program Group";
bi.ulFlags = 0;
bi.lpfn = NULL;
bi.lParam = 0;

// Browse for a folder and return its PIDL.
pidlBrowse = SHBrowseForFolder(&bi);
if (pidlBrowse != NULL) {

// Show the display name, title, and file system path.
MessageBox(hwnd, lpBuffer, "Display name", MB_OK);
if (SHGetPathFromIDList(pidlBrowse, lpBuffer))
SetWindowText(hwnd, lpBuffer);

// Free the PIDL returned by SHBrowseForFolder.

g_pMalloc->lpVtbl->Free(g_pMalloc, pidlBrowse);
}

// Clean up.
g_pMalloc->lpVtbl->Free(g_pMalloc, pidlPrograms);
g_pMalloc->lpVtbl->Free(g_pMalloc, lpBuffer);
}

2.0K
23 января 2003 года
Voha
74 / / 20.01.2003
А с помощь TTreeView свое не хочешь написать?
Как говорится :своя рубашка ближе к телу
525
24 января 2003 года
December
82 / / 20.08.2000
Цитата:
Originally posted by Voha
А с помощь TTreeView свое не хочешь написать?
Как говорится :своя рубашка ближе к телу


Давным-давно, когда сам не мог найти эту функцию, своё написать ещё не мог, а инета не было, чтоб у людей спросить, взял я обычный TOpenDialog, и просил юзера выбрать в нём файл, находящийся в нужном каталоге, чтоб каталог ентот узнать. :D
Недавно узрел это своё творение, смеялся полчаса...

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог