VPF::Api Flash + Ttable - Форум программистов

cra6

Дата 15.1.2008, 18:51 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 65
Регистрация: 10.12.2007

Репутация: нет
Всего: 2

Как сделать так чтоб окно мигало при добавлении новой записи в таблицу.Пробовал через 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;}
 
 
}

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »