Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Инфоурок / Информатика / Другие методич. материалы / Практическая работа "Электронный альбом" в среде Delphi или Lazarus

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

  • Информатика

Поделитесь материалом с коллегами:

Практическая работа № 1: Проект «Электронный альбом»

Описание проекта:

На форме расположены 4 картины и семь управляющих кнопок, при помощи которых можно показать любую из картин, показать все картины, очистить экран и выйти из программы.


hello_html_4bee3ee0.png


Порядок выполнения работы:

Запустить среду программирования 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;



Автор
Дата добавления 08.10.2015
Раздел Информатика
Подраздел Другие методич. материалы
Просмотров376
Номер материала ДВ-042974
Получить свидетельство о публикации
Похожие материалы

Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.
Специальное предложение
Вверх