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