void __fastcall TFormMain::Delay(double sec)
{
    double ticks;

    ticks = GetTickCount();
    while(1)
    {
        if (GetTickCount() >= ticks + (double)sec*1000.0) break;
        else{
            Sleep(100);
            Application->ProcessMessages();
        }
    }
}


궁금빌더 님이 쓰신 글 :
: 무한루프에서 작업이 1회 끝나면 특정시간동안 가만히 멈춰있다가 다시 작업을 하려고 하는데요.
: 아무 작업도 하지 않고 가만히 멈추게 하려면 sleep(), 이나 타이머 외에 어떤 방법이 있나요.
: 위 방법으로 하면 대기시간동안 버튼이 잘 안먹어서..
: 대기시간동안 버튼에 응답하게 하고싶어요