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

                                     - 45 -


   Вследствие большого количества свойств и событий данного компонента
отсылаем заинтересованных к книгам [5,8].
   Нижеследующая процедура позволяет выбрать нужный видеофайл из за-
данных маской в свойстве Filter компонента OpenDialog1 (см. ниже) и про-
играть его, сообщая об ошибке в случае возникновения оной

procedure TForm1.BitBtn1Cllck(Sender: TObject);
begin
 OpenDialog1.Filter := 'Все файлы|*.*|АVI/1-файлы|*.аvi|' +
                        ‘WAV-файлы|*.wav|МIDI-файлы|*.mid’;
 with MediaPlayer1 do
 begin
  try
  if OpenDialog1.Execute then
    FileName:=OpenDialog1.Filename;
  Open;
  except
    MessageDlg(MediaPlayer1.ErrorMessage,
               mtError, [mbOk], 0);
  end;
 end;
end;

5.12. КОМПОНЕНГ TDriveComboBox

   Компонент TDriveComboBox (верхний в третьем слева столбце на рис.6)
является специализированным комбинированным списком (TComboBox) и
служит для информации об имеющихся в системе устройствах прямого дос-
тупа и выбора необходимого. Список устройств заносится в компонент при
инициализации оного, во время выполнения программы отображаются имя
устройства, метка устройства (в квадратных скобках) и пиктограмма типа
устройства (винчестер, сетевой диск, CD-ROM дисковод etc). Обычно дан-
ный компонент применяется в сочетании с нижеописанными TDirec-
toryListBox и TFileListBox и имеет специальные средствами связи с ними.
   Имя текущего (выбранного пользователем) диска соответствует значению
свойства Drive, а имя с меткой (как и показывается в списке) - в свойстве
Text.
   Обработчик значимого события OnChange может выглядеть так

var CurrentDrive: string;
.....................
procedure TForm1.0nDriveChange(Sender: TObject);
begin
  CurrentDrive:=DriveComboBox1.Drive; { запомнить в переменной
                                        CurrentDrive имя диска }
end;