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; Здесь выполняется та же проверка, что и в предыдущем случае. Затем выбранный путь заносится в соответствующее поле ввода, чтобы его, при желании, можно было откорректировать.
Комментарии:
Популярные книги
Кодекс Крови. Книга Х
10. РОС: Кодекс Крови
Фантастика
:фэнтези
,юмористическое фэнтези
,попаданцы
,аниме
.
5.00
рейтинг книги
Моя простая курортная жизнь 4
4. Моя простая курортная жизнь
Любовные романы
:эро литература
.
5.00
рейтинг книги
Бастард Императора. Том 6
6. Бастард Императора
Фантастика
:городское фэнтези
,попаданцы
,аниме
,фэнтези
,фантастика: прочее
.
5.00
рейтинг книги
Метатель. Книга 3
3. Метатель
Фантастика
:попаданцы
,альтернативная история
,рпг
,фэнтези
,фантастика: прочее
,постапокалипсис
.
5.00
рейтинг книги
Император
7. Прометей
Фантастика
:фэнтези
.
7.11
рейтинг книги
Андер Арес
1. Андер Арес
Фантастика
:рпг
,аниме
,фэнтези
,фантастика: прочее
.
5.00
рейтинг книги
Седьмой Рубеж V
5. 5000 лет темноты
Фантастика
:фэнтези
,попаданцы
.
5.00
рейтинг книги
Владыка морей ч.1
10. Третий Рим
Фантастика
:попаданцы
,альтернативная история
.
5.00
рейтинг книги
Под крылом ворона
3. Чужие интересы
Фантастика
:фэнтези
,попаданцы
.
5.00
рейтинг книги
Последний попаданец
1. Последний попаданец
Фантастика
:фэнтези
,попаданцы
,рпг
.
5.00
рейтинг книги
Последний реанорец. Том III
2. Высшая Речь
Фантастика
:фэнтези
,попаданцы
.
5.25
рейтинг книги
Чужак
1. Ушедший Род
Фантастика
:попаданцы
,аниме
,фэнтези
.
5.00
рейтинг книги
Мастер порталов
8. Гибрид
Фантастика
:боевая фантастика
,попаданцы
,технофэнтези
,аниме
,фэнтези
.
5.00
рейтинг книги
Чудовищная алхимия. Том 2
2. Мир в чужом кармане
Фантастика
:юмористическое фэнтези
,попаданцы
,фэнтези
.
5.00
рейтинг книги
Изменяющий-Механик. Компиляция. Книги 1-18
Собрание сочинений
Фантастика
:боевая фантастика
,космическая фантастика
.
5.00
рейтинг книги
Совершенно несекретно
15. Девяностые
Фантастика
:попаданцы
,альтернативная история
.
5.00
рейтинг книги
Жатва душ. Остров мертвых
Фантастика
:боевая фантастика
,рпг
.
5.20