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; Здесь выполняется та же проверка, что и в предыдущем случае. Затем выбранный путь заносится в соответствующее поле ввода, чтобы его, при желании, можно было откорректировать.
Комментарии:
Популярные книги
Изгои
5. Глэрд
Фантастика
:фэнтези
,боевая фантастика
.
5.00
рейтинг книги
Страж Кодекса. Книга II
2. КО: Страж Кодекса
Фантастика
:фэнтези
,попаданцы
,аниме
.
5.00
рейтинг книги
Петля, Кадетский Корпус. Книга четвертая
4. Петля
Фантастика
:боевая фантастика
,попаданцы
,аниме
.
5.00
рейтинг книги
Ермак. Противостояние. Книга одиннадцатая
11. Ермак
Фантастика
:попаданцы
,альтернативная история
.
4.50
рейтинг книги
Вперед в прошлое 11
11. Вперед в прошлое
Фантастика
:попаданцы
,альтернативная история
.
5.00
рейтинг книги
Князь Мещерский
3. Зауряд-врач
Фантастика
:альтернативная история
.
8.35
рейтинг книги
Барон запрещает правила
9. Закон сильного
Фантастика
:аниме
,фэнтези
,попаданцы
.
5.00
рейтинг книги
Идеальный мир для Лекаря 8
8. Лекарь
Фантастика
:юмористическое фэнтези
,аниме
.
7.00
рейтинг книги
Шайтан Иван
1. Шайтан Иван
Фантастика
:боевая фантастика
,попаданцы
,альтернативная история
.
5.00
рейтинг книги
Древесный маг Орловского княжества 3
3. Орловское княжество
Фантастика
:аниме
,сказочная фантастика
,фэнтези
,попаданцы
,гаремник
.
5.00
рейтинг книги
Изгой
2. Династия
Фантастика
:фэнтези
,попаданцы
,рпг
,аниме
.
5.00
рейтинг книги
Чужак
1. Ушедший Род
Фантастика
:попаданцы
,аниме
,фэнтези
.
5.00
рейтинг книги
Звездная Кровь. Изгой IV
4. Звездная Кровь. Изгой
Фантастика
:боевая фантастика
,попаданцы
,технофэнтези
,рпг
.
5.00
рейтинг книги
Точка Бифуркации VIII
8. ТБ
Фантастика
:фэнтези
,попаданцы
.
5.00
рейтинг книги
Старшеклассник без клана. Апелляция кибер аутсайдера
1. Старшеклассник без клана. Апелляция аутсайдера
Фантастика
:попаданцы
,аниме
.
5.00
рейтинг книги
Страж Кодекса
1. КО: Страж Кодекса
Фантастика
:фэнтези
,попаданцы
,аниме
.
5.00
рейтинг книги
Кодекс Охотника. Книга XXIV
24. Кодекс Охотника
Фантастика
:фэнтези
,попаданцы
,аниме
.
5.00