Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 18.05.2009, 21:00   #1
Kamelli_13
 
Аватар для Kamelli_13
 
Регистрация: 01.05.2009
Сообщений: 7
Восклицание Прошу совета !

Всем доброго времени суток !!!
У меня вопрос следующий, в опциях для opendialog выставляю свойство ofAllowMultiSelect, но все равно он не открывает сразу несколько файлов .
В чем может быть причина ??? Или как можно открыть сразу несколько файлов другим способом ??
Kamelli_13 вне форума
Старый 18.05.2009, 22:10   #2
Terran
Участник клуба
 
Аватар для Terran
 
Регистрация: 28.11.2007
Сообщений: 1,521
По умолчанию

Можете сделать так:
Код:
Procedure TForm1.Button1Click(Sender: TObject);
Begin
OpenDialog1.Options:=[OfHideReadOnly,OfAllowMultiSelect,OfEnableSizing];
If OpenDialog1.Execute Then
Begin
ListBox1.Items.Add(OpenDialog1.Files.DelimitedText);
ListBox1.Items.Text:=StringReplace(ListBox1.Items.Text,',',#13#10,[RfReplaceAll]);
End;
End;
Только вам надо будет немного подкорректировать код.
Всегда рад помочь!

Последний раз редактировалось Terran; 18.05.2009 в 22:13.
Terran вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проблемы при написании медиаплеера под Линукс. Прошу совета hyperworker Мультимедиа в Delphi 2 28.03.2009 14:17
Прошу совета по поводу построения диаграммы. annack Microsoft Office Excel 6 27.03.2009 14:17
22 полезных совета фрилансеру фЁдОр Свободное общение 4 25.03.2009 17:52
прошу совета мо монитору andrey_tmn Компьютерное железо 4 18.03.2009 20:03
Гарантия.Прошу совета. Elm0 Свободное общение 7 09.10.2007 17:48