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; Здесь выполняется та же проверка, что и в предыдущем случае. Затем выбранный путь заносится в соответствующее поле ввода, чтобы его, при желании, можно было откорректировать.
Комментарии:
Популярные книги
Черный Маг Императора 7 (CИ)
7. Черный маг императора
Фантастика
:фэнтези
,попаданцы
.
5.00
рейтинг книги
Герой
4. Варяг
Фантастика
:альтернативная история
.
9.10
рейтинг книги
Азеф
Проза
:историческая проза
.
6.00
рейтинг книги
Граф
6. Помещик
Фантастика
:альтернативная история
.
5.00
рейтинг книги
Я еще царь. Книга XXX
30. Дорогой барон!
Фантастика
:юмористическое фэнтези
,аниме
,попаданцы
.
5.00
рейтинг книги
Протокол "Наследник"
1. Гибрид
Фантастика
:фэнтези
,попаданцы
,аниме
.
5.00
рейтинг книги
Наследие Маозари 9
9. Наследие Маозари
Фантастика
:попаданцы
,постапокалипсис
,рпг
,сказочная фантастика
.
6.25
рейтинг книги
Идеальный мир для Лекаря 22
22. Лекарь
Фантастика
:юмористическое фэнтези
,аниме
,фэнтези
.
5.00
рейтинг книги
Сердце Дракона. нейросеть в мире боевых искусств (главы 1-650)
Фантастика
:фэнтези
,героическая фантастика
,боевая фантастика
.
7.51
рейтинг книги
Казачий князь
5. Шатун
Фантастика
:боевая фантастика
,попаданцы
,альтернативная история
.
5.00
рейтинг книги
Моя простая курортная жизнь
1. Моя простая курортная жизнь
Проза
:современная проза
.
5.00
рейтинг книги
Тринадцатый V
5. Видящий смерть
Фантастика
:фэнтези
,попаданцы
,аниме
.
5.00
рейтинг книги
Точка Бифуркации VI
6. ТБ
Фантастика
:фэнтези
,попаданцы
,аниме
.
5.00
рейтинг книги
Кодекс Охотника. Книга XXVI
26. Кодекс Охотника
Фантастика
:попаданцы
.
5.00
рейтинг книги
Кодекс Охотника. Книга VIII
8. Кодекс Охотника
Фантастика
:фэнтези
,попаданцы
,аниме
.
5.00
рейтинг книги
Последний Паладин. Том 8
8. Путь Паладина
Фантастика
:боевая фантастика
,попаданцы
.
5.00
рейтинг книги
Звездная Кровь. Изгой V
5. Звездная Кровь. Изгой
Фантастика
:боевая фантастика
,попаданцы
,технофэнтези
,рпг
,фантастика: прочее
.
5.00