Реферат: Разработка многопоточных Windows-приложений в среде Borland C Builder

}

}

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

void __fastcall TForm1::ComboBox1Change(TObject *Sender)

{

switch (ComboBox1->ItemIndex)

{

case 0: Thread3->Priority=tpLowest;

break;

case 1: Thread3->Priority=tpNormal;

break;

case 2: Thread3->Priority=tpHighest;

break;

}

}

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

void __fastcall TForm1::Button4Click(TObject *Sender)

{

Label10->Caption="Запущен";

Form3->Show();

Thread3->Resume();

}

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

void __fastcall TForm1::Button5Click(TObject *Sender)

{

Label10->Caption="Приостановлен";

Thread3->Suspend();

}

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