Delphi. Учимся на примерах
2005 г.
Отрывок из книги
else ShowMessage('Файл не был открыт'); end; При нажатии кнопки Обзор открывается диалоговое окно выбора файла (Open1.Execute). Если в этом окне пользователь нажал кнопку Отмена (Open1.Execute = False), то сообщаем ему об этом и не выполняем никаких действий. Если пользователь выбрал файл, то копируем путь к нему в соответствующее поле ввода. Создадим аналогичный обработчик события для выбора пути назначения при копировании первого файла (кнопке Button3 соответствует поле where):
procedure TForm1.Button3Click(Sender : TObject); begin if Save1.Execute then where.Text:= Save1.FileName else ShowMessage('Вы не выбрали место длясохранения файла!'); end; Здесь выполняется та же проверка, что и в предыдущем случае. Затем выбранный путь заносится в соответствующее поле ввода, чтобы его, при желании, можно было откорректировать.
Комментарии:
Популярные книги
Последний Паладин. Том 8
8. Путь Паладина
Фантастика
:боевая фантастика
,попаданцы
.
5.00
рейтинг книги
Кодекс Охотника. Книга III
3. Кодекс Охотника
Фантастика
:фэнтези
,попаданцы
,аниме
.
7.00
рейтинг книги
Камень Книга двенадцатая
12. Камень
Фантастика
:боевая фантастика
,городское фэнтези
,аниме
,фэнтези
.
5.00
рейтинг книги
Игра на чужом поле
14. Девяностые
Фантастика
:попаданцы
,альтернативная история
.
5.50
рейтинг книги
Предопределение
9. Последняя жизнь
Фантастика
:фэнтези
,попаданцы
,аниме
.
5.00
рейтинг книги
За Горизонтом
8. Фронтир
Фантастика
:боевая фантастика
,космическая фантастика
,космоопера
.
5.00
рейтинг книги
Третий Генерал: Том XIII
12. Третий Генерал
Фантастика
:боевая фантастика
,фэнтези
,аниме
.
5.00
рейтинг книги
Рассвет русского царства 3
3. Новая Русь
Фантастика
:историческое фэнтези
,альтернативная история
.
5.00
рейтинг книги
Ренегат космического флота
4. Звезды на погонах
Фантастика
:боевая фантастика
,космическая фантастика
,космоопера
.
5.00
рейтинг книги
Деревенщина в Пекине
1. Пекин
Фантастика
:попаданцы
,дорама
,фантастика: прочее
.
5.00
рейтинг книги
Язычник
5. Варяг
Приключения
:исторические приключения
.
8.91
рейтинг книги
Хозяин Стужи 2
2. Злой Лед
Фантастика
:аниме
,фэнтези
,попаданцы
.
5.75
рейтинг книги
Вперед в прошлое 7
7. Вперед в прошлое
Фантастика
:попаданцы
,альтернативная история
.
5.00
рейтинг книги
Идеальный мир для Лекаря 20
20. Лекарь
Фантастика
:фэнтези
,юмористическое фэнтези
,аниме
.
5.00
рейтинг книги
Убивать чтобы жить 7
7. УЧЖ
Фантастика
:героическая фантастика
,космическая фантастика
,рпг
.
5.00
рейтинг книги
Предложение джентльмена
3. Бриджертоны
Любовные романы
:исторические любовные романы
.
8.90
рейтинг книги
Кодекс Крови. Книга V
5. РОС: Кодекс Крови
Фантастика
:фэнтези
,попаданцы
,аниме
.
5.00