Не компилятся потоки в Билдере

[Golovastik]

Начал изучать потоки в С++ Билдере 6. Вот по книге в качестве примера с потоками набрал код, но программа не компилится, не знаю что делать.
При компиляции программа, останавливается на первой строке:
TThreadForm *ThreadForm;
Declaration syntax error

Вроде правильно,как в книге, но код не работает.

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

#include <vcl.h>
#pragma hdrstop
#include "ThreadFormUnit1.h"

#include "Unit1.h"
#include <windows.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"

 TThreadForm *ThreadForm;
    HANDLE Thread;

    DWORD WINAPI ThreadFunc(LPVOID Param)
    {
       HANDLE MainWnd(Param);

       RECT R;
       GetClientRect(MainWnd, &R);

       const MaxWidth = R.right - R.left;
       const MaxHeight = R.bottom - R.top;
       int X1,Y1,X2,Y2,R1,G1,B1;
       bool IsEllipse;
       while(true)
       {
          HDC DC = GetDC(MainWnd);

          X1 = rand() % MaxWidth;
          Y1 = rand() % MaxHeight;
          X2 = rand() % MaxWidth;
          Y2 = rand() % MaxHeight;

          R1 = rand() & 255;
          G1 = rand() & 255;
          B1 = rand() & 255;
          IsEllipse = rand() & 1;

          HBRUSH Brush = CreateSolidBrush(RGB(R1,G1,B1));
          SelectObject(DC, Brush);

          if(IsEllipse)
          Ellipse(DC,X1,Y1,X2,Y2);
          else
          Rectangle(DC,X1,Y1,X2,Y2);

          ReleaseDC(MainWnd,DC);
          Deletebject(Brush);
       }
    }
__fastcall
TThreadForm::TThreadForm(TComponent *Owner) : TForm(Owner)
 {
     randomize();
     DWORD Id;
     Thread = CreateThread(0,0,ThreadFunc,
     ThreadForm->Handle, CREATE_SUSPENDED, &Id);

     if(!Thread)
     {
        ShowMessage("Невозможно создать Thread");
        Application->Terminate();
     }
 }
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ResumeThread(Thread);
Button1->Enabled = false;
Button1->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 Suspended->Thread(Thread);
  Button2->Enabled = false;
  Button2->Enabled = true;
}
//---------------------------------------------------------------------------

[pproger]

о мой бог, ты за потоки взялся. надо улетать с этой планеты...

[Golovastik]

Взялся за потоки,потому-что дали задание многопоточность на учёбе.
Подскажите пожалуйста,что нужно исправить в данном коде?

[counter]

о мой бог, ты за потоки взялся. надо улетать с этой планеты...

да пожалуй ты прав...

TThreadForm *ThreadForm;
Declaration syntax error

я конечно билдера не знаю, но судя по ошибке ты забыл про объявление класса TThreadForm


ps. Не верь тому, что пишут в книгах... ибо в книгах приводят обрезки кода из готовых программ

[Golovastik]

Наконец-то исправил. Вот так, заработало.

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

#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include <windows.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"


TForm1 *Form1;
    HANDLE Thread;

    DWORD WINAPI ThreadFunc(LPVOID Param)
    {
       HANDLE MainWnd(Param);

       RECT R;
       GetClientRect(MainWnd, &R);

       const MaxWidth = R.right - R.left;
       const MaxHeight = R.bottom - R.top;
       int X1,Y1,X2,Y2,R1,G1,B1;
       bool IsEllipse;
       while(true)
       {
          HDC DC = GetDC(MainWnd);

          X1 = rand() % MaxWidth;
          Y1 = rand() % MaxHeight;
          X2 = rand() % MaxWidth;
          Y2 = rand() % MaxHeight;

          R1 = rand() & 255;
          G1 = rand() & 255;
          B1 = rand() & 255;
          IsEllipse = rand() & 1;

          HBRUSH Brush = CreateSolidBrush(RGB(R1,G1,B1));
          SelectObject(DC, Brush);

          if(IsEllipse)
          Ellipse(DC,X1,Y1,X2,Y2);
          else
          Rectangle(DC,X1,Y1,X2,Y2);

          ReleaseDC(MainWnd,DC);
          DeleteObject(Brush);
       }
    }
__fastcall
TForm1::TForm1(TComponent *Owner) : TForm(Owner)
 {
     randomize();
     DWORD Id;
     Thread = CreateThread(0,0,ThreadFunc,
     Form1->Handle, CREATE_SUSPENDED, &Id);

     if(!Thread)
     {
        ShowMessage("Невозможно создать Thread");
        Application->Terminate();
     }
 }

void __fastcall TForm1::Button1Click(TObject *Sender)
{
ResumeThread(Thread);
Button1->Enabled = false;
Button2->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
SuspendThread(Thread);
  Button2->Enabled = false;
  Button1->Enabled = true;        
}
//---------------------------------------------------------------------------