Списки для работы с файловой системой

Для работы со списками дисков, каталогов, файлов и фильтров в Delphi определены объекты DriveComboBox, DirectoryListBox, FileListBox, FilterComboBox. Эти эементы находится в библиотеке Win 3.1. (см. рис. 43.).

При установке объекта DriveComboBox автоматически определяются диски компьютера, разработчику в коде необходимо указать, за каким элемементом DirectoryListBox связан этот экзепляр объекта DriveComboBox.

Рис.43. Рис.44.

Аналогично, при установке объета DirectoryListBox, в список добавляются каталоги активного диска, этот объект связывается с элементом FileListBox. Приведем пример программы просмотра рисунков. Прежде отметим, что в Delphi для отображения графики определен объект Image. На свойствах этого объекта остановимся далее, а пока только воспользуемся загрузкой графических файлов в экзепляр этого объекта.

Обратите внимание на метод Create. Этот метод служит для формирования первоначальных установок для объектов.

unit Unit1;

{Просмотр рисунков}

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, FileCtrl, StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

FileListBox1: TFileListBox;

DirectoryListBox1: TDirectoryListBox;

DriveComboBox1: TDriveComboBox;

FilterComboBox1: TFilterComboBox;

Image1: TImage;

procedure FormCreate(Sender: TObject);

procedure FileListBox1Click(Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);

begin

{cвязь экземпляров объектов работы с файловой системой}

drivecombobox1.DirList:=Directorylistbox1;

Directorylistbox1.filelist:=filelistbox1;

{Создание фильтра}

FilterComboBox1.Filter:= 'All files (*.*)|*.*| Pисунки (*.wmf)|*.wmf';

FilterCombobox1.FileList:=filelistbox1;

end;

procedure TForm1.FileListBox1Click(Sender: TObject);

begin

{загрузка рисунка в объект Image1}

image1.Picture.LoadFromFile(filelistbox1.FileName);

end;

end.

Дата добавления: 2014-01-05