Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Свидетельство о публикации

Автоматическая выдача свидетельства о публикации в официальном СМИ сразу после добавления материала на сайт - Бесплатно

Добавить свой материал

За каждый опубликованный материал Вы получите бесплатное свидетельство о публикации от проекта «Инфоурок»

(Свидетельство о регистрации СМИ: Эл №ФС77-60625 от 20.01.2015)

Инфоурок / Информатика / Другие методич. материалы / Практическая работа "Электронный альбом" в среде Delphi или Lazarus
ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону № 313-ФЗ все педагоги должны пройти обучение навыкам оказания первой помощи.

Дистанционный курс "Оказание первой помощи детям и взрослым" от проекта "Инфоурок" даёт Вам возможность привести свои знания в соответствие с требованиями закона и получить удостоверение о повышении квалификации установленного образца (180 часов). Начало обучения новой группы: 28 июня.

Подать заявку на курс
  • Информатика

Практическая работа "Электронный альбом" в среде 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;




Подайте заявку сейчас на любой интересующий Вас курс переподготовки, чтобы получить диплом со скидкой 50% уже осенью 2017 года.


Выберите специальность, которую Вы хотите получить:

Обучение проходит дистанционно на сайте проекта "Инфоурок".
По итогам обучения слушателям выдаются печатные дипломы установленного образца.

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ

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

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