unit1.cpp

来自「多线程实例」· C++ 代码 · 共 50 行

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
        Bubble *b;
        Bubble *c;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int x,y;
CheckBox1->Enabled=true;
CheckBox2->Enabled=true;
y=240;
x=CheckBox1->Left-10;
b=new Bubble(clRed,x,y);
x=CheckBox2->Left-10;
c=new Bubble(clBlue,x,y);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::CheckBox1Click(TObject *Sender)
{
if(CheckBox1->Checked)
b->Resume();
else
b->Suspend();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CheckBox2Click(TObject *Sender)
{
if(CheckBox2->Checked)
c->Resume();
else
c->Suspend();
}
//---------------------------------------------------------------------------