Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

OpenDialog TypeChange и MultiSelect


Vitaliy_____ ©   (2009-06-16 11:34:00) 

Доброе время суток!
Мне нужно чтобы при смене типа файлов, отображаемых в OpenDialog менялась возможность выбора нескольких файлов.
То есть, для .txt было возможно одновременно выбрать несколько файлов, а, скажем, для .doc только 1.

Пишу на смену типа файлов

procedure TForm1.OpenDialog1TypeChange(Sender: TObject);
begin
if OpenDialog1.FilterIndex=2 then OpenDialog1.Options:=OpenDialog1.Options-[ofAllowMultiSelect]
else OpenDialog1.Options:=OpenDialog1.Options-[ofAllowMultiSelect];
end;

Но все равно множественный выбор в диалоге доступен. Что еще нужно сделать?


Vitaliy_____   (2009-06-16 12:46:00) [1]

Ясно, спасибо. Просто я думал может его можно перевызвать что ли, или сообщение послать ему, чтобы он "поумнел" :)


Игорь Шевченко   (2009-06-16 12:24:00) [2]


> забить и не париться


именно


> Просто интересно, зачем тогда OpenDialog1TypeChange существует,
>  если он срабатывает при execute, а поменять мы уже не сможем.
> ..


например, чтобы изменить метод предварительного просмотра файла


Vitaliy_____   (2009-06-16 12:08:00) [3]

Именно это я и наблюдаю. Опции действительно меняются, а вот эффекта не дают.
Вопрос, можно ли сделать то что я хочу или забить и не париться (все равно будет обработан только 1-й в списке файл в случае FilterIndex=2).
Просто интересно, зачем тогда OpenDialog1TypeChange существует, если он срабатывает при execute, а поменять мы уже не сможем...


Игорь Шевченко   (2009-06-16 12:00:00) [4]

property Options: TOpenOptions read FOptions write FOptions default [ofHideReadOnly, ofEnableSizing];

то есть, присвоение Options после того, как вызван execute, ничего не меняет.


Наверх

Титульная страница Поиск, карта сайта Написать письмо