Компоненты tOpenDilog, tSaveDialog

TOpenDilog предназначен для выбора файла с дальнейшем открытия.

Property Filename:String;

Программа использует это свойство для доступа к файлу с целью читать из него данные или записывать в него (TSaveDialog). Если указать не существующий файл, то при записи в него это не имеет значение (будет создан). Если по OpenDialog не существующий файл использовать, то приведет к аварийному закрытию. Во избежание такой ситуации можно осуществлять проверку файла глобальной функций FileExists и обрабатывать ситуацию.

If (OpenDialog1.Execute) and (FileExists(OpenDialog1.FileName)

Property Filter:String;

property FileName:String;

Для отбора файлов показываемое в диалоговом окне. Свойство можно установить статически и динамически. Статически через инспектор объектов или написать в программе динамически. Фильтры задается одной длинной строкой между фильтром с разделителем вертикальная черта.

OpenDialog1.Feter:=’Текстовые файлы |*.txt|Файлы pas| *.pas|’;

Можно установить начальный каталог.

Property InitialDil:string;

OpenDialog1.InitialDir:=’s:\kkfm’; Можно устанавливать рассмотренные имена файла по умолчанию

Property DefaltExt:strin[3];

Property Options; TOpenOptions;

Type TopenOptions=setofTOpenOptiong;

TopenOptions(ofReadOnly,OfOverWritePrompt, ofNoChangeDiz);

Устанавливает переключатель только для чтения. Требует согласие пользователя для записи в существующий файл

Запрещает смену каталога

Property FilterIndex:integer; Номер текущей маски начиная с 1

Метод Function GetStaticRect.TRect;

Возвращает координаты прямоугольной области диалогового окна который зарезервирован разработчиком.

Пример. Объект openDialog Окну присвоим заголовок выбор файла, а в списке отобразить все файлы с расширением pas

Function GetStaticRect:TRect;

TForm1.Bitton1Click(Sender:TObject);

var f:textfile; s:string;

begin

OpenDialog1.title:=’выбор файла’;

OpenDialog1.Filter:=’*.txt|Файлы pas|*.pas’;

OpenDialog1.FilterIndex:=2;

If (OpenDialog1.Execute) and (FileExists(openDialog1.Filename)) then

begin AssingFile (f,OpenDilog1.Filename);

Reset(f);

while Not EOF(f) do begin

readln(f,s);

Memo1.Lines.Add(s);

end;

CloseFile(f);

end; end.

Компоненты TOpenPictureDilog Окно открытия рисунка TSavePictureDialog сохранение рисунка

Отличие: Для рисунков предусматривается стандартные фильтры для выбора графических файлов.

.bmp .ico .wmf .emf

В окна диалогах включены панели для предосмотра выбираемого файла.

Компонент Tfontdilog вызывает окно выбора шрифта.

TFondDevice=(fdScreen;fdrprinter;fdBoth);

PropertyDevice.TFondDialogDevice;

propertyFont:Tfont; Фиксируется выбранный пользователем шрифт

If FontDilog1.Execute then halel1.Font.Assign(FontDilog1.Font);

habel1.Caption:=’Пример’;

Для выбора цвета TColorDialogs создает и обслуживает стандартное диалоговое окно выбора цвета

TShape

TColorDialog создает и обслуживает стандартное окно выбора цвета.

if colorDialog1.Execute then shae1.Color:=ColorDialog1.color;

Shape1.Color:=ColorDialof1.color;

TprintDialog устанавливает печать

TPrinterSetupDialog настройки принтера.

TFindDialog поиск фрагмента текста

TreplaceDialog поиск и замена фрагмента текста