SelectDirectory

← →
312kbps (2007-12-25 14:59) [0]

uses FileCtrl;

procedure TForm1.Button1Click(Sender: TObject);
var
Dir: string;
begin
Dir := "C:\MYDIR";
if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],1000) then
Label1.Caption := Dir;
end;

Unit "FileCtrl" is specific to a platform
There is no overloaded version of "SelectDirectory" that can be called with these arguments

почему не работает функция SelectDirectory ???
или подскажи ей альтернативу, выбора директории !?

← →
Kolan © (2007-12-25 15:05) [1]

> There is no overloaded version of "SelectDirectory" that
> can be called with these arguments

Не так аргументы передаешь.

← →
Kolan © (2007-12-25 15:05) [2]

Или не те, посмотри внимательно на список параметров.

← →
312kbps (2007-12-25 15:11) [3]

v1

var
chosenDirectory : string;
begin
// Просим пользователя выбрать требуемый каталог, стартовый каталог C:
if SelectDirectory("Выберите каталог", "C:\", chosenDirectory)
then ShowMessage("Выбранный каталог = "+chosenDirectory)
else ShowMessage("Выбор каталога прервался");
end;

v2

var
options : TSelectDirOpts;
chosenDirectory : string;
begin
chosenDirectory := "C:\"; // Установка начального каталога
// Просим пользователя выбрать используя полностью различные диалоги!
if SelectDirectory(chosenDirectory, options, 0)
then ShowMessage("Выбранный каталог = "+chosenDirectory)
else ShowMessage("Выбор каталога прервался");
end;

так тоже не работает ((((

есть альтернатива выбора папки по кнопке !?

← →
{RASkov} © (2007-12-25 15:14) [4]

> [0] 312kbps (25.12.07 14:59)

Код в [0] синтаксически верен...

> или подскажи ей альтернативу, выбора директории !?

SHBrowseForFolder

← →
Kolan © (2007-12-25 15:16) [5]

> Код в [0] синтаксически верен&#133

Я не проверял  лень, но раз:
There is no overloaded version of "SelectDirectory" that can be called with these arguments

То видимо что-то случилось.

Кстати не забывайте что в D7 SelectDirectory может меньше чем онаже в DBS

← →
{RASkov} © (2007-12-25 15:19) [6]

> [5] Kolan © (25.12.07 15:16)
> Кстати не забывайте что в D7 SelectDirectory может меньше чем онаже в DBS

Не понял что значит меньше :)

> Я не проверял — лень, но раз:
> There is no overloaded version of "SelectDirectory" that
> can be called with these arguments
>
> То видимо что-то случилось.

Скорее всего, что у автора есть еще и третья функция "SelectDirectory" :)

← →
312kbps (2007-12-25 15:23) [7]

какая третья, я все делаю по хелпу Д7
или там может быть не правильно указано !?

я так понимаю что кроме этой функции "SelectDirectory" выбора директории в делфи альтернатив нету !?

← →
{RASkov} © (2007-12-25 15:28) [8]

> [7] 312kbps (25.12.07 15:23)
> какая третья, я все делаю по хелпу Д7
> или там может быть не правильно указано !?

А в Uses у тебя что? Нам об этом не извесно)

> я так понимаю что кроме этой функции "SelectDirectory"
> выбора директории в делфи альтернатив нету !?

См [4]

← →
Kolan © (2007-12-25 15:30) [9]

> Не понял что значит меньше :)

Я про TSelectDirExtOpt = (sdNewFolder, sdShowEdit, sdShowShares, sdNewUI, sdShowFiles, sdValidateDir);

← →
312kbps (2007-12-25 15:33) [10]

> А в Uses у тебя что? Нам об этом не извесно)

uses FileCtrl;

это было указано в самом первом сообщении

← →
Kolan © (2007-12-25 15:35) [11]

> я так понимаю что кроме этой функции "SelectDirectory"
> выбора директории в делфи альтернатив нету !?

Их две.

← →
312kbps (2007-12-25 15:39) [12]

как с SHBrowseForFolder работать я нашел, даже получилось )

только не получается результат засунуть в TEdit засунуть (((

TempPath : array[0..MAX_PATH] of char;
dir_zip: TEdit;
......
SHGetPathFromIDList(lpItemID, TempPath);
......
dir_zip:=TempPath; -- ????

сори за глупые вопросы )

← →
{RASkov} © (2007-12-25 15:41) [13]

> [10] 312kbps (25.12.07 15:33)
> uses FileCtrl;
>
> это было указано в самом первом сообщении

:)

так уж прямо один модуль и есть )
Не поверю.... так как в текущем модуле у тебя есть форма т.е. + uses Forms, TButton + uses Controls....
В общем понял о чем я? Я о том, что может быть подключен uses ...Forms, Contrls, FileCtrl, BlaSuperUnit;
И вот в BlaSuperUnit тоже определена "SelectDirectory".....

← →
312kbps (2007-12-25 15:44) [14]

полный список всех поключений
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DBTables, DB, adodb, Menus, ZipForge, ComCtrls,
ActnList, IniFiles, FileCtrl;

← →
Kolan © (2007-12-25 15:45) [15]

Что может быть проще. Стать в скобки SelectDirectory(|) , нажать Ctrl+Space и посмотреть какие параметры хочет SelectDirectory&#133

Телепатор мне подсказывает, что тут Q приложило свою грязную лапу.

← →
312kbps (2007-12-25 15:54) [17]

> Что может быть проще. Стать в скобки SelectDirectory(|)
> , нажать Ctrl+Space и посмотреть какие параметры хочет SelectDirectory…

и так делал и мышку наводил и хелп смотрел, везде одно и тоже написано (

function SelectDirectory(var Directory: string; Options: TSelectDirOpts; HelpCtx: Longint): Boolean; overload;

************

как с SHBrowseForFolder работать я нашел, даже получилось )

только не получается результат засунуть в TEdit засунуть (((

TempPath : array[0..MAX_PATH] of char;
dir_zip: TEdit;
......
SHGetPathFromIDList(lpItemID, TempPath);
......
dir_zip:=TempPath; -- ????

сори за глупые вопросы )

> только не получается результат засунуть в TEdit засунуть

А про свойства TEdit в справке посмотреть?

← →
312kbps (2007-12-25 16:09) [19]

> > только не получается результат засунуть в TEdit засунуть
>
> А про свойства TEdit в справке посмотреть?

dir_zip.Text:=TempPath;

это я уже не соображаю, сижу с температурой на работе (

Кстати. А где-нибудь в uses модуля QDialogs нет?

← →
312kbps (2007-12-25 16:29) [21]

> Кстати. А где-нибудь в uses модуля QDialogs нет?

точно нет

Т еще не сделал [15] ? Чего ждешь ?

SelectDirectory Найти похожие ветки