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; Здесь выполняется та же проверка, что и в предыдущем случае. Затем выбранный путь заносится в соответствующее поле ввода, чтобы его, при желании, можно было откорректировать.
Комментарии:
Популярные книги
Страж Кодекса. Книга VII
7. КО: Страж Кодекса
Фантастика
:фэнтези
,попаданцы
,аниме
.
5.00
рейтинг книги
Долг
7. Другая сторона
Фантастика
:боевая фантастика
.
5.56
рейтинг книги
В зоне особого внимания
12. Девяностые
Фантастика
:попаданцы
,альтернативная история
.
5.00
рейтинг книги
Я все еще не царь. Книга XXVI
26. Дорогой барон!
Фантастика
:попаданцы
,аниме
.
5.00
рейтинг книги
Камень. Книга восьмая
8. Камень
Фантастика
:фэнтези
,боевая фантастика
.
7.00
рейтинг книги
Здравствуй, 1985-й
2. Девяностые
Фантастика
:альтернативная история
.
5.25
рейтинг книги
Матабар V
5. Матабар
Фантастика
:фэнтези
.
5.00
рейтинг книги
Идеальный мир для Лекаря 24
24. Лекарь
Фантастика
:городское фэнтези
,попаданцы
.
5.00
рейтинг книги
Последний Паладин. Том 3
3. Путь Паладина
Фантастика
:юмористическое фэнтези
,попаданцы
,аниме
.
5.00
рейтинг книги
Архонт
5. Стеллар
Фантастика
:боевая фантастика
,рпг
.
7.80
рейтинг книги
Имя нам Легион. Том 4
4. Меж двух миров
Фантастика
:боевая фантастика
,рпг
,аниме
.
5.00
рейтинг книги
Барон Дубов
1. Его Дубейшество
Фантастика
:юмористическое фэнтези
,аниме
,сказочная фантастика
,фэнтези
.
5.00
рейтинг книги
Объединитель
8. Сопряжение
Фантастика
:боевая фантастика
,постапокалипсис
,рпг
.
5.00
рейтинг книги
Принц из-за моря
5. Третий Рим
Фантастика
:попаданцы
,альтернативная история
.
5.00
рейтинг книги
Эволюция мага
2. Гибрид
Фантастика
:фэнтези
,попаданцы
,аниме
.
5.00
рейтинг книги
Вперед в прошлое 11
11. Вперед в прошлое
Фантастика
:попаданцы
,альтернативная история
.
5.00
рейтинг книги
Эволюционер из трущоб. Том 3
3. Эволюционер из трущоб
Фантастика
:попаданцы
,аниме
,фэнтези
,фантастика: прочее
.
6.00