Навесь обработчик события OnStateChange на все свои датасеты. (Один на всех)
Типа такого:
1.
2.
3.
4.
5.
6.
7.
8.
9.
procedure dS_StateChange(Sender: TObject);
var
i: integer;
begin
NeedSave := false;
for i := 0 to ComponentCount - 1 do
if Components[i] is TIBCustomDataSet then
with (Components[i] as TIBCustomDataSet) do
if (State in [dsEdit, dsInsert]) then NeedSave := true;
end;
NeedSave - проперть формы на которой лежат эти датасеты.
Анализируй эту переменную в обработчике событий OnUpdate для
акций (TAction), реализующих Commit и Rollback.
