Здравствуйте!

Подскажите пожалуйста, как в Билдере 5 перейти на процесс параллельного выполнения команд.

Например, при отображении на графическом интерфейсе текущего времени (в течение установленных 15 секунд), в процессе работы программы не работают остальные кнопки (функции), в частности, на преждевременное закрытие программы.

даю Unit1.cpp:

#include<iostream>
#include <vcl.h>
#pragma hdrstop
#include <dos.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{

Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int i = 0;

while (i<15)
{
Label1->Caption = Time();
_sleep (1);
Label1->Refresh();
i++;
}
}

Заранее спасибо,
Александр.

Код

#include<iostream>  #include <vcl.h>  #pragma hdrstop  #include <dos.h>  #include "Unit1.h"  //---------------------------------------------------------------------------  #pragma package(smart_init)  #pragma resource "*.dfm"  TForm1 *Form1;  //---------------------------------------------------------------------------  __fastcall TForm1::TForm1(TComponent* Owner)  : TForm(Owner)  {  }  //---------------------------------------------------------------------------  void __fastcall TForm1::Button2Click(TObject *Sender)  {  Close();  }  //---------------------------------------------------------------------------  void __fastcall TForm1::Button1Click(TObject *Sender)  {  int i = 0;  while (i<15)  {  Label1->Caption = Time(); _sleep (1);  //Label1->Refresh();  //Это лишнее Application->ProcessMessages(); //Добавь эту строку i++;  }  }

П.С. Пользуйся таймером...(component TTimer)
Добавлено @ 10:45
Sleep задерживает на 1-у миллисекунду а не секунду..так что вместо _sleep(1) поставь _sleep(1000)

Попробовал, как посоветовали (убрал 31, добавил строку 32) - все равно кнопка Button2 не активизируется пока не пройдет 15 секунд !!!

Александр,

Цитата

Пользуйся таймером...(component TTimer)

Код

//----------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) {  Timer1->Enabled=true;  } //----------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) {  Close(); } //----------------------------------------------------- void __fastcall TForm1::Timer1Timer(TObject *Sender) { static i=0; if (i<15) {  Label1->Caption = Time();  i++; } else {  Timer1->Enabled=false;  i=0; } } //-----------------------------------------------------

Да и ещё, не забудь сперва установить свойство Enabled таймера в false, дабы он не побежал сразу после запуска приложения. Свойством Interval устанавливаешь нужный интервал времени(мс), через который будет выполняться код написаный в onTimer. По умолчанию, как видишь, стоит одна секунда.