Разработка проекта "ДИАЛОГ"
Практическая работа, 29 Мая 2013, автор: пользователь скрыл имя
Краткое описание
Создать программу, выполняющую следующие действия: После запуска программы пользователь вводит свое имя, например, Александр, в прямоугольник с мигающим текстовым курсором и нажимает клавишу Enter.
Появляется вопрос: "Александр, ты любишь читать?". Если пользователь нажмет на клавишу Да, то должна появиться реплика: "Молодец!", если он нажмет на клавишу Нет, то появится реплика: "Почему же? Надо читать".
Вложенные файлы: 1 файл
Практикум Delphi Бурмистров.doc
— 617.50 Кб (Скачать файл)
4. Сохраните проект, запустите и протестируйте его.
Листинг подпрограммы
procedure TForml. Imagel Click (Sender: TObject);
begin
OpenDialogl .Execute;
Image 1 .Picture.LoadFromFile (OpenDialog 1 .FileName);
end;