#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit6.h"
#include "Unit7.h"
#include "Unit8.h"
#include "Unit9.h"
#include "Unit10.h"
#include "Unit11.h"
#include "Unit12.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm10 *Form10;
//---------------------------------------------------------------------------
__fastcall TForm10::TForm10(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm10::Button1Click(TObject *Sender)
{
Form2->Show();
Form10->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm10::Button2Click(TObject *Sender)
{
Form1->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm10::Button3Click(TObject *Sender)
{
63
Form11->Show();
Form10->Hide();
}
//---------------------------------------------------------------------------
void __fastcall TForm10::Button4Click(TObject *Sender)
{
Form12->Show();
Form10->Hide();
}
//---------------------------------------------------------------------------
64
Unit 11
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit6.h"
#include "Unit7.h"
#include "Unit8.h"
#include "Unit9.h"
#include "Unit10.h"
#include "Unit11.h"
#include "Unit12.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm11 *Form11;
//---------------------------------------------------------------------------
__fastcall TForm11::TForm11(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm11::Button4Click(TObject *Sender)
{
Form1->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm11::Button1Click(TObject *Sender)
{
Form10->Show();
Form11->Close();
}
//---------------------------------------------------------------------------
int t = 1;
void __fastcall TForm11::SpeedButton1Click(TObject *Sender)
{
if(t == 2){
65
Image1->Visible = true;
Image2->Visible = false;
SpeedButton1->Enabled = false;
}
if(t == 3){
Image2->Visible = true;
Image3->Visible = false;
}
if(t == 4){
Image3->Visible = true;
Image4->Visible = false;
SpeedButton2->Enabled = true;
}
t --;
}
//---------------------------------------------------------------------------
void __fastcall TForm11::SpeedButton2Click(TObject *Sender)
{
if(t == 1){
Image2->Visible = true;
Image1->Visible = false;
SpeedButton1->Enabled = true;
}
if(t == 2){
Image3->Visible = true;
Image2->Visible = false;
}
if(t == 3){
Image4->Visible = true;
Image3->Visible = false;
SpeedButton2->Enabled = false;
}
t ++;
}
//---------------------------------------------------------------------------
