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; Здесь выполняется та же проверка, что и в предыдущем случае. Затем выбранный путь заносится в соответствующее поле ввода, чтобы его, при желании, можно было откорректировать.
Комментарии:
Популярные книги
Гром над Академией. Часть 2
3. Гром над миром
Фантастика
:боевая фантастика
.
5.50
рейтинг книги
Владыка морей ч.1
10. Третий Рим
Фантастика
:попаданцы
,альтернативная история
.
5.00
рейтинг книги
Бастард Императора. Том 3
3. Бастард Императора
Фантастика
:попаданцы
,аниме
,фэнтези
.
5.00
рейтинг книги
Идеальный мир для Лекаря 10
10. Лекарь
Фантастика
:юмористическое фэнтези
,аниме
.
5.00
рейтинг книги
Ружемант
1. Ружемант
Фантастика
:попаданцы
,рпг
,аниме
.
5.00
рейтинг книги
Имя нам Легион. Том 9
9. Меж двух миров
Фантастика
:боевая фантастика
,рпг
,аниме
.
5.00
рейтинг книги
Вернуть невесту. Ловушка для попаданки 2
2. Вернуть невесту
Любовные романы
:любовно-фантастические романы
.
7.88
рейтинг книги
Последний реанорец. Том IX
8. Высшая Речь
Фантастика
:фэнтези
,попаданцы
,аниме
.
5.75
рейтинг книги
На границе империй. Том 9. Часть 3
16. Фортуна дама переменчивая
Фантастика
:космическая фантастика
,попаданцы
.
5.00
рейтинг книги
Воевода
5. Помещик
Фантастика
:альтернативная история
.
5.00
рейтинг книги
Наномашины, внучок! Том 2
2. Чего смотришь? Иди книгу читай
Фантастика
:фэнтези
,попаданцы
,аниме
.
5.00
рейтинг книги
Сын Тишайшего 4
4. Царь Федя
Фантастика
:попаданцы
,альтернативная история
,фэнтези
.
5.00
рейтинг книги
Тайны затерянных звезд. Том 1
1. Тайны затерянных звезд
Фантастика
:боевая фантастика
,космическая фантастика
,фэнтези
.
5.00
рейтинг книги
Как я строил магическую империю 3
3. Как я строил магическую империю
Фантастика
:попаданцы
,постапокалипсис
,аниме
,фэнтези
.
5.00
рейтинг книги
Крепость над бездной
4. Гибрид
Фантастика
:боевая фантастика
,попаданцы
,аниме
,фэнтези
.
5.00
рейтинг книги
Эволюционер из трущоб. Том 7
7. Эволюционер из трущоб
Фантастика
:попаданцы
,аниме
,фэнтези
,фантастика: прочее
.
5.00
рейтинг книги
Отморозок 3
3. Отморозок
Фантастика
:попаданцы
.
5.00