Практическая работа "Электронный альбом" в среде Delphi или Lazarus

Практическая работа № 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;