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

{Form2->Label1->Left=370;} 

}

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

void __fastcall T2::Execute()

{

      for (;;)

{

  Synchronize(OutOnForm2);

  Sleep(150);

}

}

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

T3.cpp

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

#include <vcl.h>

#pragma hdrstop 

#include "T3.h"

#include "Unit1.h"

#include "Unit3.h"

#pragma package(smart_init)

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

__fastcall T3::T3(bool CreateSuspended)

        : TThread(CreateSuspended)

{

}

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

void __fastcall T3::OutOnForm3()

{   static  int i=5;

    static  int k;

    static  int f=0; 

if (f==0)

  {

   for (k=40;k<=100;k+=5);

    {

     Form3->Shape1->Width+=i;

     Form3->Shape1->Height+=i;

     if (Form3->Shape1->Width==100) {f=1;} ;

    };

   }; 

if(f==1)

{

   for (k=100;k>=40;k-=5);

    {

     Form3->Shape1->Width-=i;

     Form3->Shape1->Height-=i;

     if (Form3->Shape1->Width==40) {f=0;} ;

    };

   };

}

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

void __fastcall T3::Execute()

{

      for (;;)

{

  Synchronize(OutOnForm3);

  Sleep(150);

}

}

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