Содержание
- 2. 1
- 3. На вкладке Win32 2 Компонент PageControl
- 4. Правой кнопкой мыши вызываем меню и добавляем вкладки 3
- 5. Выбираем нужную вкладку Меняем название вкладки 4
- 6. 5
- 7. procedure TForm1.Button1Click(Sender: TObject); begin if (edit1.Text='4')then begin label2.Caption:='Правильно'; b:=b+1; end else label2.Caption:='Неправильно'; Button1.Visible:=False; end; Проверяем правильность
- 8. 7
- 9. 8 procedure TForm1.Button2Click(Sender: TObject); begin if (RadioButton2.Checked=true) then begin label4.Caption:='Правильно'; b:=b+1; end else label4.Caption:='Неправильно'; Button2.Visible:=False; end;
- 10. 9
- 11. procedure TForm1.Button3Click(Sender: TObject); begin if (CheckBox1.Checked=true) and (CheckBox3.Checked=true) and (CheckBox2.Checked=false) and (CheckBox4.Checked=false)then begin label5.Caption:='Правильно'; b:=b+1; end
- 12. 11
- 13. procedure TForm1.Button4Click(Sender: TObject); begin label9.Caption:='Набрано баллов - '+inttostr(b); if (b=3) then label10.Caption:=' Оценка 5 (отлично)'; if
- 14. procedure TForm1.Button5Click(Sender: TObject); begin PageControl1.ActivePageIndex := 0; edit1.Text:=''; CheckBox1.Checked:=false; CheckBox2.Checked:=false; CheckBox3.Checked:=false; CheckBox4.Checked:=false; Button1.Visible:=True; Button2.Visible:=True; Button3.Visible:=True; label5.Caption:='';
- 15. 14
- 16. 15
- 17. 16 Создаем новую форму в проекте Новую форму нужно сохранить
- 18. Переключение 17 F12
- 19. var Form1: TForm1; b:integer; implementation uses Unit2,Unit3; Добавляем новые формы в проект 18
- 20. procedure TForm1.Button7Click(Sender: TObject); begin Form2.Show; end; procedure TForm1.Button8Click(Sender: TObject); begin Form3.Show; end; Открываем третью форму 19
- 22. Скачать презентацию