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

Викторина по ПДД Скачать 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; Форма 4 Кнопка ОК procedure TForm7.Button1Click(Sender: TObject); begin     Unit6.Form6.Show; //переход к новой форме     Unit3.Form3.hide;  //закрываем предыдущую форму     Unit7.Form7.hide;  //закрываем предыдущую форму end; Форма 5 Кнопка ОК procedure TForm5.Button1Click(Sender: TObject); begin   Unit5.Form5.hide; end; Форма 6 Форма 7 Вопрос 3 Вопрос 4 Вопрос 5 Вопрос 6 Вопрос 7 Вопрос 8 Кнопка ВЫХОД  procedure TForm20.Button1Click(Sender: TObject); begin   close; end; Чтобы заблокировать кнопку РАЗВЕРНУТЬ ОКНО в свойствах BorderIcons – biMaximize установить False. Чтобы поменять иконку: Ctrl + Shift + F11 Icon Позволяет загрузить иконку приложения из файла (расширение *.ico), эта иконка будет отображаться   в системном меню заголовка окна. Чтобы убрать рамку (бордюр)  в свойствах  устанавливаем BorderStyle  ­bsNone