| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
OpenDialog [D7, WinXP]
Ищущий ответ © (2005-01-09 19:24:00)Возможно ли сделать так чтобы в открывшимся OpenDialog пользователь не смог выбрать другую директорию? Возможно ли это?
ASoft (2005-01-10 05:19:00) [1]Дописать в процедуре TForm1.Button1Click(Sender: TObject) перед InitialDir:='C:\myfolder';
FileName:='';
ASoft (2005-01-10 05:08:00) [2]В качестве не совсем серьезного примера:
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;
begin...end (2005-01-09 22:08:00) [3]> [1] Семен Сорокин © (09.01.05 22:04)
Выбрать файл в текущем каталоге?
> [2] Семен Сорокин © (09.01.05 22:05)
Это не совсем то. Перемещение по каталогам остаётся возможным.
> Ищущий ответ (09.01.05 19:24)
AFAIK, используя стандартный TOpenDialog - нельзя.
Семен Сорокин (2005-01-09 22:05:00) [4]Options := Options + [ofNoChangeDir];
Семен Сорокин (2005-01-09 22:04:00) [5]а смысл вообще открывать диалог?
| |
