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; Здесь выполняется та же проверка, что и в предыдущем случае. Затем выбранный путь заносится в соответствующее поле ввода, чтобы его, при желании, можно было откорректировать.
Комментарии:
Популярные книги
Девочка из прошлого
3. Айдаровы
Любовные романы
:современные любовные романы
.
5.00
рейтинг книги
Восход. Солнцев. Книга I
1. Голос Бога
Фантастика
:фэнтези
,попаданцы
,аниме
.
5.00
рейтинг книги
Ваше Сиятельство 7
7. Ваше Сиятельство
Фантастика
:боевая фантастика
,аниме
.
5.00
рейтинг книги
Очкарик 2
2. Очкарик
Фантастика
:фэнтези
,альтернативная история
.
5.00
рейтинг книги
Вечный. Книга VI
6. Вечный
Фантастика
:рпг
,фэнтези
.
5.00
рейтинг книги
Расплата. Отбор для предателя
2. Отбор для предателя
Фантастика
:фэнтези
.
5.00
рейтинг книги
Лейб-хирург
2. Зауряд-врач
Фантастика
:альтернативная история
.
7.34
рейтинг книги
"Никто" так не смотрит
Территория любви
Любовные романы
:современные любовные романы
.
5.50
рейтинг книги
Убивать чтобы жить 5
5. УЧЖ
Фантастика
:боевая фантастика
,космическая фантастика
,рпг
.
5.00
рейтинг книги
Тактик
2. Офицер
Фантастика
:альтернативная история
.
7.70
рейтинг книги
Эволюционер из трущоб. Том 3
3. Эволюционер из трущоб
Фантастика
:попаданцы
,аниме
,фэнтези
,фантастика: прочее
.
6.00
рейтинг книги
Возвращение демонического мастера. Книга 1
1. Вселенная Вечности
Фантастика
:фэнтези
.
5.75
рейтинг книги
Кодекс Охотника. Книга IX
9. Кодекс Охотника
Фантастика
:боевая фантастика
,городское фэнтези
,попаданцы
.
5.00
рейтинг книги
Орден Багровой бури. Книга 3
3. Орден Багровой бури
Фантастика
:фэнтези
,попаданцы
.
5.00
рейтинг книги
Ермак. Регент
10. Ермак
Фантастика
:попаданцы
,альтернативная история
.
5.00
рейтинг книги
Камень. Книга восьмая
8. Камень
Фантастика
:фэнтези
,боевая фантастика
.
7.00
рейтинг книги
Диверсант. Дилогия
Фантастика
:альтернативная история
.
8.17
рейтинг книги
