Co zrobić aby przy pomyłce tylko piłka miała Sleep(700) jakby co to jest "void sleep()" Mirosław mówił że Application->ProcessMessages(); to robi lecz mi to nie działa :/
Jeśli ma ktoś trochę czasu i chcę pomóc daję link do całego projektu: https://drive.google.com/file/d/0B2T3ok-mzTN6ampibVhaYTYxcm8/view?usp=sharing
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "windows.h"
#include "mmsystem.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int x=-10;
int y=-10;
int pkt1=0;
int pkt2=0;
void sleep()
{
Application->ProcessMessages();Application->ProcessMessages(); Sleep(700);
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer_pilkaTimer(TObject *Sender)
{
b->Left-=x;
b->Top-=y;
//odbij od góry
if(b->Top-5 <= tlo->Top)
{
sndPlaySound("snd/1", SND_ASYNC);
y = -y;
}
// od dołu
if(b->Top+b->Height+5 > tlo->Height)
{
sndPlaySound("snd/1", SND_ASYNC);
y = -y;
}
// od prawej
//if(b->Left + b-> Width >= tlo->Width) x = -x;
if (b->Left <= p1->Left + p1->Width && b->Top-b->Height/2 >= p1->Top-5 &&
b->Top+b->Height <= p1->Top+p1->Height+5 )
{
if(x>0)
{
x=-x ;sndPlaySound("snd/1.wav", SND_ASYNC);
}
}
if (b->Left+b->Width >= p2->Left && b->Top >= p2->Top-5 &&
b->Top+b->Height <= p2->Top+p2->Height+5 )
{
if(x<0)
{
x=-x ;sndPlaySound("snd/1.wav", SND_ASYNC);
}
}
//skucha lewa
if(b->Left+b->Width <= p1->Left-20)
{
sndPlaySound("snd/2.wav", SND_ASYNC);
pkt2+=1;
Label6->Caption=pkt2;
sleep();
b->Top=240;
b->Left=640;
}
//skucha prawa
if(b->Left >= p2->Left+20)
{
sndPlaySound("snd/2.wav", SND_ASYNC);
pkt1+=1;
Label5->Caption=pkt1;
sleep();
b->Top=240;
b->Left=640;
}
if(pkt1==Edit1->Text)
{
pkt1=0;
pkt2=0;
Label11->Visible=true;
Button3->Visible=true;
Timer_pilka->Enabled=false;
b->Top=216;
b->Left=616;
}
else if(pkt2==Edit1->Text)
{
pkt1=0;
pkt2=0;
Label12->Visible=true;
Button3->Visible=true;
Timer_pilka->Enabled=false;
b->Top=216;
b->Left=616;
}
}
//---------------------------------------------------------------------------