Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

SelectDirectory [D7, WinXP]

Страницы: 1 2 >
312kbps © (2007-12-25 14:59:00)
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 16:37:00) [1]
Т еще не сделал [15] ? Чего ждешь ?

312kbps (2007-12-25 16:29:00) [2]

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

точно нет

Германн (2007-12-25 16:10:00) [3]
Кстати. А где-нибудь в uses модуля QDialogs нет?

312kbps (2007-12-25 16:09:00) [4]

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

dir_zip.Text:=TempPath;

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

Германн (2007-12-25 16:01:00) [5]

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

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

312kbps (2007-12-25 15:54:00) [6]

> Что может быть проще. Стать в скобки 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; -- ????

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

Германн (2007-12-25 15:52:00) [7]
Телепатор мне подсказывает, что тут Q приложило свою грязную лапу.

Kolan (2007-12-25 15:45:00) [8]
Что может быть проще. Стать в скобки SelectDirectory( |) , нажать Ctrl+Space и посмотреть какие параметры хочет SelectDirectory…

312kbps (2007-12-25 15:44:00) [9]
полный список всех поключений
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DBTables, DB, adodb, Menus, ZipForge, ComCtrls,
ActnList, IniFiles, FileCtrl;

{RASkov} (2007-12-25 15:41:00) [10]
> [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:39:00) [11]
как с SHBrowseForFolder работать я нашел, даже получилось )

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

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

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

Kolan (2007-12-25 15:35:00) [12]
> я так понимаю что кроме этой функции 'SelectDirectory'
> выбора директории в делфи альтернатив нету !?

Их две.

312kbps (2007-12-25 15:33:00) [13]

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

uses FileCtrl;

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

Kolan (2007-12-25 15:30:00) [14]
> Не понял что значит меньше :)

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

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

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

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

См [4]

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

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

{RASkov} (2007-12-25 15:19:00) [17]
> [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' :)

Kolan (2007-12-25 15:16:00) [18]
> Код в [0] синтаксически верен…

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

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

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

{RASkov} (2007-12-25 15:14:00) [19]
> [0] 312kbps (25.12.07 14:59)

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

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

SHBrowseForFolder

312kbps (2007-12-25 15:11:00) [20]
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;

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

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

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »