Событие при добавлении записи в BDGrid

[Alexeyss]

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

Столкнулся с проблемой, необходимо при добавлении записи на стороне серверной части, отобразить эту запись на стороне клиента, но при добавлении в DBGrid нужно вызвать некое событие например showmessage()

Delphi под рукой нет, пишу на память свои варианты.

Timer
begin
adoquery1.close;
adoquery1.open; обновляем DbGrid

if dbGrid1.lines.count = dbGrid1.lines.count +1 then
begin
showmessage('Запись добавлена')

и такой вариант

if dbgrid1.datasource.dataset.recordCo unt = dbgrid1.datasource.dataset.recordCo unt +1 then
...

Ни один из вариантов не работает, подскажите пожалуйста, ткните носом на решение проблемы.

Спасибо.

[Arkuz]

У меня пару раз были глюки с Open и Close.

Попробуй так:

В DataSource1 для твоего запроса по событию DataSource1Change напиши следующее:

procedure DataSource1Change(Sender: TObject; Field: TField);
begin
Query1.Active:=false;
Query1.Active:=true;
end;

[Alexeyss]

Сообщение от Arkuz

У меня пару раз были глюки с Open и Close.

Попробуй так:

В DataSource1 для твоего запроса по событию DataSource1Change напиши следующее:

procedure DataSource1Change(Sender: TObject; Field: TField);
begin
Query1.Active:=false;
Query1.Active:=true;
end;

Да, но это не решает проблему с с выполнением условия, в случае добавления записи