Содержание материала

 

  TOpenDialog и TSaveDialog

Диалоговые окошки File Open и File Save имеют несколько общих свойств. File Open в основном используется для выбора и открытия файлов, в то время как диалог File Save (так же используется как диалоговое окошко Save As) используется для получения от пользователя имени файла, чтобы сохранить файл. Далее мы рассмотрим некоторые важные свойства TOpenDialog и TSaveDialog:

 

Свойство Options предназначено для задания конечного вида окна. Например, при помощи следующего кода:

 

with OpenDialog1 do

Options := Options +

  [ofAllowMultiSelect, ofFileMustExist];

 

мы позволим пользователю выбирать несколько файлов, а так же заставим генерироваться сообщение об ошибке, если пользователь выберет несуществующий файл.

 

Свойство InitialDir используется для указания директории, которая будет показана при создании диалога. Следующий код установит начальную директорию, из которой было запущено приложение:

 

SaveDialog1.InitialDir :=

   ExtractFilePath(Application.ExeName);

 

Свойство Filter содержит список типов файлов, которые сможет выбирать пользователь. Когда пользователь выберет тип файлов, то в диалоговом окне будут отображаться только файлы данного расширения. Фильтр можно легко установить на стадии создания приложения при помощи диалога редактора фильтра (Filter Editor): 

 

Так же фильтр можно задать программно. Строка фильтра должна содержать описание и расширение для данного типа файлов, разделённые вертикальной чертой:

 

OpenDialog1.Filter :=

'Text files (*.txt)|*.txt|All files (*.*)|*.*';

 

 

Свойство FileName. Когда пользователь нажмёт на диалоге кнопку OK, то это свойство будет содержать полный путь и имя выбранного файла.

  Вызов диалогового окошка

Для создания и отображения стандартного диалога необходимо выполнить метод Execute для нужного диалога. За исключением диалогов TFindDialog и TReplaceDialog, все остальные диалоги отображаются модально.

 

Все стандартные диалоговые окошки позволяют определить нажал ли пользователь кнопку "Отмена" (Cancel) (или нажал ESC). Если метод Execute вернул True значит пользователь нажал OK или сделал двойной щелчёк по файлу либо нажал Enter на клавиатуре, иначе, если  была нажата кнопка Cancel, клавиша Esc или Alt-F4, будет возвращено значение False.

 

if OpenDialog1.Execute then

ShowMessage(OpenDialog1.FileName);

 

Этот код показывает диалог File Open и, если пользователь нажал "Открыть" (Open), то будет показано имя выбранного файла.

 

Использование только кода

Чтобы работать диалогом Open (или любым другим) не помещая при этом на форму компонент OpenDialog, можно воспользоваться следующим кодом:

Code:

procedure TForm1.btnFromCodeClick(Sender: TObject);

var OpenDlg : TOpenDialog;

begin OpenDlg := TOpenDialog.Create(Self);

{здесь устанавливаем опции...}

if OpenDlg.Execute then begin

{здесь что-нибудь делаем}

end;

OpenDlg.Free;

end;

 

Обратите внимание, что перед вызовом Execute, можно установить различные свойства компонента OpenDialog.

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить