Логотип Инфоурока

Получите 30₽ за публикацию своей разработки в библиотеке «Инфоурок»

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

и получить бесплатное свидетельство о размещении материала на сайте infourok.ru

Чёрная пятница

-75%

На все курсы повышения квалификации и профессиональной переподготовки

Инфоурок Информатика Другие методич. материалыПрограммируем в Lazarus. Викторина по ПДД.

Программируем в Lazarus. Викторина по ПДД.

Скачать материал
библиотека
материалов

Викторина по ПДД

Скачать https://yadi.sk/d/RQ7ilygW3N44uW

Форма 1

hello_html_m4c4664e.png

Кнопка ПУСК

procedure TForm1.Button1Click(Sender: TObject);

begin

Unit2.Form2.Show; //переход к новой форме

Unit1.Form1.hide; //закрываем предыдущую форму

end;



ПОДКЛЮЧЕНИЕ ФОРМ

implementation

uses Unit2;

ИЛИ uses Unit2,Unit3,Unit5;



Форма 2

hello_html_7ac0ef7c.png

Кнопка ОК

procedure TForm2.Button1Click(Sender: TObject);

begin

Unit3.Form3.Show; //переход к новой форме

Unit2.Form2.hide; //закрываем предыдущую форму

end;



Форма 3

hello_html_389bd7dc.png

Выбор правильного ответа (указываем к какой форме переход)

procedure TForm3.RadioButton1Change(Sender: TObject);

begin

Unit7.Form7.Show; //переход к новой форме

Unit5.Form5.hide; //закрываем предыдущую форму

end;

procedure TForm3.RadioButton2Change(Sender: TObject);

begin

Unit5.Form5.Show; //переход к новой форме

end;



Форма 4

hello_html_m5757251c.png

Кнопка ОК

procedure TForm7.Button1Click(Sender: TObject);

begin

Unit6.Form6.Show; //переход к новой форме

Unit3.Form3.hide; //закрываем предыдущую форму

Unit7.Form7.hide; //закрываем предыдущую форму

end;



Форма 5

hello_html_m332776c.png

Кнопка ОК

procedure TForm5.Button1Click(Sender: TObject);

begin

Unit5.Form5.hide;

end;





Форма 6


Форма 7hello_html_55b79909.png

hello_html_15786c1b.png

Вопрос 3

hello_html_3d17754d.png

hello_html_m3a58a49.png



Вопрос 4

hello_html_3d90839d.png

hello_html_m52c0ae51.png



Вопрос 5

hello_html_m597a800e.png

hello_html_282a53fa.jpg



Вопрос 6

hello_html_1525feb6.png

hello_html_379c20af.png



Вопрос 7

hello_html_m134ac9b.png

hello_html_298d7f2f.png



Вопрос 8

Кнопка ВЫХОД

procedure TForm20.Button1Click(Sender: TObject);

begin

close;

end;

hello_html_5f3ffe0b.png

hello_html_717487b.png

Чтобы заблокировать кнопку РАЗВЕРНУТЬ ОКНО в свойствах BorderIconsbiMaximize установить False.

Чтобы поменять иконку: Ctrl + Shift + F11

Позволяет загрузить иконку приложения из файла (расширение *.ico), эта иконка будет отображаться в системном меню заголовка окна.

Чтобы убрать рамку (бордюр) в свойствах устанавливаем BorderStyle -bsNone

  • Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.
    Пожаловаться на материал
Скачать материал
Найдите материал к любому уроку,
указав свой предмет (категорию), класс, учебник и тему:
также Вы можете выбрать тип материала:
Краткое описание документа:

Викторина по ПДД

Скачать https://yadi.sk/d/RQ7ilygW3N44uW

Форма 1

Кнопка ПУСК

procedure TForm1.Button1Click(Sender: TObject);

begin

Unit2.Form2.Show; //переход к новой форме

Unit1.Form1.hide; //закрываем предыдущую форму

end;

ПОДКЛЮЧЕНИЕ ФОРМ

implementation

uses Unit2;

ИЛИ uses Unit2,Unit3,Unit5;


Форма 2

Кнопка ОК

procedure TForm2.Button1Click(Sender: TObject);

begin

Unit3.Form3.Show; //переход к новой форме

Unit2.Form2.hide; //закрываем предыдущую форму

end;


Форма 3

Выбор правильного ответа (указываем к какой форме переход)

procedure TForm3.RadioButton1Change(Sender: TObject);

begin

Unit7.Form7.Show; //переход к новой форме

Unit5.Form5.hide; //закрываем предыдущую форму

end;

procedure TForm3.RadioButton2Change(Sender: TObject);

begin

Unit5.Form5.Show; //переход к новой форме

end;

Общая информация
Скачать материал

Вам будут интересны эти курсы:

Курс повышения квалификации «Информационные технологии в деятельности учителя физики»
Курс повышения квалификации «Внедрение системы компьютерной математики в процесс обучения математике в старших классах в рамках реализации ФГОС»
Курс повышения квалификации «Развитие информационно-коммуникационных компетенций учителя в процессе внедрения ФГОС: работа в Московской электронной школе»
Курс профессиональной переподготовки «Информационные технологии в профессиональной деятельности: теория и методика преподавания в образовательной организации»
Курс повышения квалификации «Применение MS Word, Excel в финансовых расчетах»
Курс повышения квалификации «Введение в программирование на языке С (СИ)»
Курс профессиональной переподготовки «Управление в сфере информационных технологий в образовательной организации»
Курс профессиональной переподготовки «Математика и информатика: теория и методика преподавания в образовательной организации»
Курс повышения квалификации «Специфика преподавания дисциплины «Информационные технологии» в условиях реализации ФГОС СПО по ТОП-50»
Курс повышения квалификации «Современные языки программирования интегрированной оболочки Microsoft Visual Studio C# NET., C++. NET, VB.NET. с использованием структурного и объектно-ориентированного методов разработки корпоративных систем»

Оставьте свой комментарий

Авторизуйтесь, чтобы задавать вопросы.