opendialog delphi

Ответ от SoVA[мастер]
TOpenDialog (TSaveDialog) и TOpenPictureDialog (TSavePictureDialog) отображают модальные диалоговые окна Windows для открытия (сохранения) файлов. Компоненты TOpenDialog и TSaveDialog работают с файлами любого типа. Отрытие соответствующего диалога осуществляется методом Execute. Если в диалоге пользователь нажмет кнопку Открыть (Сохранить) , диалог закрывается, метод Execute возвращает true и выбранный файл отображается в свойстве компонента-диалога FileName. Если же пользователь отказался от диалога (нажал кнопку Отмена или клавишу Esc), то метод Execute возвращает false. Значение свойства FileName можно задать и перед обращением к диалогу. Тогда оно появится в диалоге как значение по умолчанию в окне Имя файла. пример if OpenDialog1.Execute then // вызов диалогового окна begin FName:=OpenDialog1.FileName; Label1.Caption:=Fname; // вставка имени файла ...end; После выбора пользователем файла имя файла запоминается в переменной FName, которую можно использовать по своему усмотрению например открыть файл с запомненым именем нажатием кнопки procedure TForm1.OpenButtonClick(Sender: TObject); begin If FName<>\'\' then ShellExecute(Handle,\'open\',(PChar(FName)), nil, nil, SW_Restore) // запуск приложения открывающего файл else begin MessageDlg (\' Выбор не сделан, или неверное имя файла ! \', mtWarning, [mbOK], 0); end; end; (re: при этом не забудьте в список uses добавить модуль ShellAPI) Типы искомых файлов, появляющиеся в диалоге в выпадающем списке Тип файла, задаются свойством Filter. В процессе проектирования это свойство проще всего задать с помощью редактора фильтров, который вызывается нажатием кнопки с многоточием около имени этого свойства в Инспекторе Объектов. При этом открывается окно редактора. В его левой панели Filter Name вы записываете тот текст, который увидит пользователь в выпадающем списке Тип файла диалога. А в правой панели окна редактора записываются разделенные точками с запятой шаблоны фильтра. После выхода из окна редактирования фильтров заданные вами шаблоны появятся в свойстве Filter в виде строки. Например: текстовые (*.txt, *.doc)|*.txt; *.doc|все файлы|*.* В этой строке тексты и шаблоны разделяются вертикальными линиями.