взаимодействие приложения и dll

[Roof]

У меня в главном приложении - есть DBGrid, в котором отображаются данные из бд baza.mdb. На главной форме есть кнопка Вызов - которая отображает форму из dll.
Также на главной форме есть еще кнопки 2: удалить и добавить. Они добавляют или удаляют записи в бд.

В форме из dll - есть тоже DBGrid и две кнопки удалить и добавить.
Так вот вопрос: как сделать так чтобы в обоих этих DBGrid одновременно отображалась информация? Т.е. - я открыл форму из dll и удалил в ней запись - тогда информация также мгновенно должна обновиться в DBGrid на главной форме. И наоборот - я открыл форму в dll и удаляю запись через главную форму - тут же должна обновится информация и в открытой форме dll в DBGrid...

Прикрепляю сделанные проекты.
Mainn.dpr - проект главного приложения
libr.dpr - проект dll
Unit1.pas- модуль формы dll

Примечание: ADOConnection.Caonnected и ADOTale1.Active в проекте в инспекторе объектов поставлены в значение false. Они активизируются при событии form1.Activate.
Примеры снабжены комментариями почти к каждой процедуре

[evg_m]

1. известить главную форму (DLL) о том что произошли изменения
postmessage(wm_user+x,)
2. следить не было ли изменений. ontimer

[Roof]

Вобщем сообщениями я не очень хочу тут работать.
У меня есть пример - передача одной переменной из dll в главное приложение. В примере можно вызвать форму из dll и в dll нажать кнопку Button3 - тогда И В DLL И В ГЛАВНОМ ПРИЛОЖЕНИИ ИЗМЕНИТСЯ ОДНА ПЕРЕМЕННАЯ ОДНОВРЕМЕННО. Это отображается на обеих формах.

Так вот не могу додуматься - как мне передать не одну переменную, а еще и обновления в DBGrid?? Предполагаю, что нужно передавать ADOTable1.Close и ADOTable1.Open. Прошу рассмотреть пример и, если можно, объяснить как передать вместе с одной переменной еще и обновления DBGrid.

Mainn.dpr - проект главного приложения
libr.dpr - проект dll
Unit1.pas- модуль формы dll

[Altera]

Передай в dll указатели на процедуры. Сделай так:
Объяви процедуру после к.с. implementation

procedure dbOpen(const value: boolean); stdCall;
begin
   if value then
      ADOTable1.Open
   else
      ADOTable1.Close;
end;

и передовай её указатели в DLL. Я особо в базах данных не секу. поэтому говрю суть...

Потом, когда нажимаешь на кнопку "Вызов", такой код:
ShowForm(Application.Handle, Self.Handle, @dbOpen); Там выше и в DLL исправь описание этой процедуры. В DLL в объяви глобальную переменную

var
...
dbOpen: procedure(const value: boolean); stdCall;
...

Ну и там дольше, где надо тебе, по вызову процедуры ShowForm в dll напиши: @dbOpen := procP;

procedure ShowForm(Appl, Form: THandle; procP: pointer);

по мере надобности просто будешь вызывать из dll ShowForm с нужным тебе параметром.

p.s. Про stdCall не забудь.