try:
Code:
void TForm1::setText(AnsiString inp)
{
TForm1::editText = inp;
}
void TForm1::write()
{
Edit1->Text = editText;
}
Code:
DWORD WINAPI TForm1::m_check(LPVOID param)
{
DWORD status;
HANDLE m_con[2];
m_con[0] = report;
m_con[1] = hExitEvent;
while(true)
{
status = WaitForMultipleObjects(2,m_con,FALSE,INFINITE);
Sleep(10); //do not use processor 100%
switch(status)
{
case WAIT_OBJECT_0:
Form1->setText(message);
Synchronize(Form1->write);
break;
case WAIT_OBJECT_0 +1:
return NULL;//exit
case WAIT_FAILED:
Form1->setText("wait failed");
Synchronize(Form1->write);
break;
default:
Form1->setText("fail");
Synchronize(Form1->write);
break;
}
}
}