Как сделать так чтоб окно мигало при добавлении новой записи в таблицу.Пробовал через Table1->RecordCount но всё время проблемы возникают чтоб его достать...Точнее record достаю а nowrecord ничего не достаёт.Не знаю что делать...
Спасибо.
| Код |
void __fastcall TMForm::Timer1Timer(TObject *Sender)
{
nowrecord = Table1->RecordCount;
Table2->Refresh();
Table1->Refresh();
Label4->Caption = IntToStr(nowrecord);
}
|
| Код |
void __fastcall TMForm::FlashTimerTimer(TObject *Sender)
{
if (flag==true && record != nowrecord)
{
FlashWindow(Application->Handle, false);
FlashWindow(Application->Handle, true);
} }
//---------------------------------------------------------------------------
void __fastcall TMForm::CheckTimerTimer(TObject *Sender)
{
HANDLE hWnd;
hWnd = GetForegroundWindow();
char szTitle[41] = {0};
GetWindowText(hWnd,szTitle,40);
Label2->Caption = AnsiString(szTitle);
if (Label2->Caption=="Мониторинг")
{
flag=false;
record=Table1->RecordCount;
Label3->Caption=IntToStr(record);
}else {flag = true;}
}
|
|