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

}

}

//Нижче представлений код виконується тоді коли під час тренування

//натискається будь-яка клавіша. Виконується перевірка правильності натиснутої кнопки

void __fastcall TTrainForm::FormKeyPress(TObject *Sender, char &Key)

{

skey=Key;

if (skey==slitera){

if (rezhim==1) slitera=EngWord();

if (rezhim==2) slitera=UkrWord();

if (rezhim==3) slitera=RusWord();

Corect++;

if (rezhim==1){

LiteraEng->Hide(); LiteraEng->Top=255;

}

if (rezhim==2){

LiteraUkr->Hide(); LiteraUkr->Top=255;

}

if (rezhim==3){

LiteraRus->Hide(); LiteraRus->Top=255;

}

Pravilno->Caption=IntToStr(Corect);

} else {

NoCorect++; NePravilno->Caption=IntToStr(NoCorect);

}

}

//Відкривається нове вікно з підсказками по роботі з клавіатурою-------------

void __fastcall TTrainForm::N8Click(TObject *Sender)

{