Курсовая работа: Побудова клавіатурного тренажера

Form3->Show();

}

Лістинг 2. (Unit2.cpp)

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "Unit2.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm2 *Form2;

//---------------------------------------------------------------------------

__fastcall TForm2::TForm2(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm2::OKClick(TObject *Sender)

{

TrainForm->Pravilno->Caption=0;

TrainForm->NePravilno->Caption=0;

Form2->Close();

}

Лістинг 3. (Unit3.cpp)

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "Unit3.h"

#pragma package(smart_init)