🚀 go-pugleaf

>I suspect that a more likely scenario could be that your thread isn't
>releasing it's timeslice at all and is taking up all the processor time.
>Try adding in some ::Sleep(n) instructions (particular within loops), where
>n is a number of milliseconds - I typically use 0, 50, 100, 250, 500, or
>1000, depending on what the thread is designed to do.


But how come if I do it this way it works?
Andy

///Start Thread Button
void __fastcall TForm1::bUseThreadClick(TObject *Sender)
{
  StopNow = false;
  DWORD ThreadID;
  HANDLE hthread = CreateThread(
    0,
    0,
    ThreadFunc,
    0,
    0,
    &ThreadID);
    if (hthread == 0)
    MessageBox(Handle, "No Thread", 0, MB_OK);
}


/////Thread Function
DWORD CALLBACK ThreadFunc(void* P)
{
    Form1->Countloop();
    return 0;
}


//// Same Loop operation as the one I sent Gambit

void __fastcall TForm1::Countloop()
{
  HDC DC = GetDC(Form1->Handle);
  for (int i = 0; ((i<=300000) && (!Form1->StopNow));i++ ) {
    //Label1->Caption = IntToStr(i);

    String S = i;
    TextOut(DC, 10, 10, S.c_str(), S.Length());
  }
    ReleaseDC(Form1->Handle, DC);
    //return 0;
}


//// Stop Button
void __fastcall TForm1::StopCodeClick(TObject *Sender)
{
  StopNow = true;
}