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
рейтинг книги
Тринадцатый VII
7. Видящий смерть
Фантастика
:фэнтези
,попаданцы
,аниме
.
5.00
рейтинг книги
Сирийский рубеж 2
6. Рубеж
Фантастика
:попаданцы
,альтернативная история
.
5.00
рейтинг книги
Я до сих пор князь. Книга XXII
22. Дорогой барон!
Фантастика
:юмористическое фэнтези
,аниме
,попаданцы
.
5.00
рейтинг книги
Ваше Сиятельство 4т
4. Ваше Сиятельство
Любовные романы
:эро литература
.
5.00
рейтинг книги
Двойник короля 18
18. Двойник Короля
Фантастика
:аниме
,фэнтези
,попаданцы
.
5.00
рейтинг книги
Первый среди равных. Книга III
3. Первый среди Равных
Фантастика
:попаданцы
,аниме
,фэнтези
.
6.00
рейтинг книги
Отморозок 3
3. Отморозок
Фантастика
:попаданцы
.
5.00
рейтинг книги
Древесный маг Орловского княжества
1. Орловское княжество
Фантастика
:аниме
,фэнтези
,фантастика: прочее
,попаданцы
.
5.00
рейтинг книги
Найденыш
2. Светлая Тьма
Фантастика
:юмористическое фэнтези
,городское фэнтези
,аниме
.
5.00
рейтинг книги
Последний Паладин. Том 2
2. Путь Паладина
Фантастика
:фэнтези
,попаданцы
,аниме
.
5.00
рейтинг книги
Родословная. Том 1
1. Линия крови
Фантастика
:городское фэнтези
,аниме
,фэнтези
,фантастика: прочее
.
5.00
рейтинг книги
Принадлежать им
Любовные романы
:современные любовные романы
.
5.00
рейтинг книги
Белые погоны
3. Гибрид
Фантастика
:фэнтези
,попаданцы
,технофэнтези
,аниме
.
5.00
рейтинг книги
Газлайтер. Том 19
19. История Телепата
Фантастика
:попаданцы
,аниме
,фэнтези
.
5.00
рейтинг книги
Ваше Сиятельство 3
3. Ваше Сиятельство
Фантастика
:фэнтези
,попаданцы
,аниме
.
5.00
рейтинг книги
Леди Малиновой пустоши
Любовные романы
:любовно-фантастические романы
.
6.20