- Преподавателю
- Информатика
- Практическая работа Электронный альбом в среде Delphi или Lazarus
Практическая работа Электронный альбом в среде Delphi или Lazarus
Раздел | Информатика |
Класс | - |
Тип | Другие методич. материалы |
Автор | Титова Е.В. |
Дата | 11.09.2015 |
Формат | docx |
Изображения | Есть |
Практическая работа № 1: Проект «Электронный альбом»
Описание проекта:
На форме расположены 4 картины и семь управляющих кнопок, при помощи которых можно показать любую из картин, показать все картины, очистить экран и выйти из программы.
Порядок выполнения работы:
Запустить среду программирования Delphi.
Открыть новый проект.
Расположить на форме кнопки BitBtn* и объекты Image.
Выделить Image1. Используя Object Inspector, найти свойство Picture, загрузить рисунок.
Аналогично загрузить рисунки на другие объекты Image.
Подписать кнопки BitBtn, изменив их свойства Caption на соответствующие подписи (названия картин, очистка экрана, показ всех картин, выход из программы).
Войти в редактор кода, дважды щелкнув по кнопке BitBtn1.
Написать код:
procedure TForm1.BitBtn1Click (Sender: TObject);
begin
image1.Visible:=true;
image2.visible:=false;
image3.visible:=false;
image4.visible:=false;
end;
Аналогичные коды записать для кнопок BitBtn2, BitBtn3, BitBtn4.
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
…
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
…
end;
procedure TForm1.BitBtn4Click(Sender: TObject);
begin
…
end;
procedure TForm1.BitBtn5Click(Sender: TObject);
begin
…
end;
procedure TForm1.BitBtn6Click(Sender: TObject);
begin
…
end;
10. Для завершения программы запишите код:
procedure TForm1.BitBtn7Click(Sender: TObject);
begin
close;
end;