TOpenPictureDialog и TSavePictureDialog
Эти два диалога есть ничто иное как обычные File Open и File Save с дополнительной возможностью предварительного просмотра выбранной картинки.
Мой Блокнот
А теперь предлагаю применить теорию на практике. Создадим простейший блокнот, и посмотрим как работают диалоговые окошки Open и Save:
Для создания блокнота проделаем следующее:
. Запустите Delphi и выберите в меню File-New Application.
. Поместите на форму Memo, OpenDialog, SaveDialog и две кнопки.
. Переименуйте Button1 в btnOpen, а Button2 в btnSave.
Код
1. Поместите в событие формы FormCreate следующий код:
|
Code: |
|
procedure TForm1.FormCreate(Sender: TObject); begin with OpenDialog1 do begin Options:=Options+[ofPathMustExist,ofFileMustExist]; InitialDir:=ExtractFilePath(Application.ExeName); Filter:='Text files (*.txt)|*.txt'; end; with SaveDialog1 do begin InitialDir:=ExtractFilePath(Application.ExeName); Filter:='Text files (*.txt)|*.txt'; end; Memo1.ScrollBars := ssBoth; end; |
Этот код устанавливает некоторые свойства диалога Open как было описано в начале статьи.
2. Добавьте следующий код в событие Onclick для кнопок btnOpen и btnSave:
|
Code: |
|
procedure TForm1.btnOpenClick(Sender: TObject); begin if OpenDialog1.Execute then begin Form1.Caption := OpenDialog1.FileName; Memo1.Lines.LoadFromFile (OpenDialog1.FileName); Memo1.SelStart := 0; end; end;
procedure TForm1.btnSaveClick(Sender: TObject); begin SaveDialog1.FileName := Form1.Caption; if SaveDialog1.Execute then begin Memo1.Lines.SaveToFile (SaveDialog1.FileName + '.txt'); Form1.Caption:=SaveDialog1.FileName; end; end; |
Теперь можно смело запускать проект
- << Назад
- Вперёд
Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.
ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!