OpenDialog

← →
Ищущий ответ (2005-01-09 19:24) [0]

Возможно ли сделать так чтобы в открывшимся OpenDialog пользователь не смог выбрать другую директорию? Возможно ли это?

← →
Семен Сорокин © (2005-01-09 22:04) [1]

а смысл вообще открывать диалог?

← →
Семен Сорокин © (2005-01-09 22:05) [2]

Options := Options + [ofNoChangeDir];

← →
begin...end © (2005-01-09 22:08) [3]

> [1] Семен Сорокин © (09.01.05 22:04)

Выбрать файл в текущем каталоге?

> [2] Семен Сорокин © (09.01.05 22:05)

Это не совсем то. Перемещение по каталогам остаётся возможным.

> Ищущий ответ (09.01.05 19:24)

AFAIK, используя стандартный TOpenDialog - нельзя.

← →
ASoft (2005-01-10 05:08) [4]

В качестве не совсем серьезного примера:
var od: boolean;

procedure TForm1.Button1Click(Sender: TObject);
begin
od:=False;
With OpenDialog1 do
begin
InitialDir:="C:\myfolder";
If not Execute then exit;
If od then
begin
ShowMessage("Незьзя отсюдова выбирать, можно только "+"C:\myfolder!");
exit;
end;
end;
end;

procedure TForm1.OpenDialog1FolderChange(Sender: TObject);
begin
if OpenDialog1.InitialDir<>OpenDialog1.FileName then
od:=True;
end;

← →
ASoft (2005-01-10 05:19) [5]

Дописать в процедуре TForm1.Button1Click(Sender: TObject) перед InitialDir:="C:\myfolder";
FileName:="";

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