Как вызвать диалог выбора каталога ?

← →
Diogen (2002-11-28 10:19) [0]

Если можно . то с примером

← →
Игорь Шевченко © (2002-11-28 10:23) [1]

uses FileCtrl;

SelectDirectory

← →
stone © (2002-11-28 10:23) [2]

SelectDirectory

вызывается в двух вариантах. Описание с примером по F1

← →
Roman_Tutov (2002-11-28 11:05) [3]

Нашел .Посмотрел. Что-то оно некрасивое .
В винде есть диалог где нарисовано дерево каталогов
Может кто знает ?

← →
stone © (2002-11-28 11:15) [4]

Специально для Roman_Tutov (28.11.02 11:05)

SelectDirectory вызывается в двух вариантах. Описание с примером по F1

← →
Roman_Tutov (2002-11-28 12:09) [5]

Покажите пожалуйста пример второго варианта .
Ибо что-то не получается его вызвать

procedure TForm1.Button1Click(Sender: TObject); var dir : string; begin if SelectDirectory("Выбор каталога:", "", dir) then Edit1.Text := dir; end;

← →
Roman_Tutov (2002-11-28 12:33) [7]

Спасибо .