Разработка прикладных программ для ОС WINDOWS с помощью интегрированных сред Delphi / C++Builder. Баканов В.М. - 49 стр.

                                   - 49 -


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

procedure TForm1.BltBtn1Cllck(Sender: TObject);
begin
 OpenDialogl.Filter :='Все файлы|***|ВМР-файлы|*.bmр|'+
                       WMF-файлы|*.wmf|IСО-файлы|*.iсо';
 with Image1 do
 begin
 try
   if OpenDialog1.Execute then
     Picture.LoadFromFile(OpenDialog1.Filename);
 except
   MessageDlg('Ошибка демонстрации изображения из файла ' + OpenDia-
                 log1.Filename,
                 mtError, [mbOk], 0);
 end;
 end;
end; { конец процедуры }

5.20. СТАНДАРТИЫЕ ДИАЛОГОВЫЕ ОКНА WINDOWS
     И ИХ ПРИМЕНЕНИЕ

   В списке компонентов Delphi / C++Builder имеются объекты, позволяю-
щие работать со стандартными окнами диалога WINDOWS; в DesignTime
они представляются виде соответствующих пиктограмм (иконок), служащих
для выбора компонента с целью редактирования его свойств и сообщений с
помощью Object Inspector'a.
   Находятся эти компоненты на странице Dialogs палитры компонентов и
инициализируются (в частности, визуализируются в виде диалоговых окон)
функцией Execute, возращающей TRUE в случае выбора файла или FALSE в
случае отказа от выбора (нажатия кнопки Cancel); таким образом настоя-
тельно рекомендуется пользоваться конструкцией вида (вместо ХХХХХ под-
ставляется реальное имя компонента)

if XXXXX.Execute then
   ... что-то делать ...
else
   exit;

5.20.1. КОМПОНЕНТ TOpenDialog

   Компонент TOpenDialog служит для выбора файла с целью его после-
дующей обработки (диалоговое окно компонента приведено на рис.7).