БД как изменить OnChange из формы.

[Slava1970]

Здравствуйте. Есть форма родитель, в ней флажок YNEdit:Integer. Нужно, в событиях DBEdit.OnChange
прописать строку YNEdit:=1; автоматом при переборе всех объектов ввода.

Может так , Выбрать все объекты формы у которых есть событие OnChange и задать действие.

[DYUMON]

ты пытаешься отмечать изменялись ли поля в таблице?

[Slava1970]

Да, изменил отметил. В принципе понял, что нужно добавить какое то общее событие

Код: Выделить всё

procedure Form1.ChangeEdit(Sender: TObject);
begin
YNEDit:=1;
end

Перебрать поля и к событию OnChange прикрепить ChangeEdit

Код: Выделить всё

procedure Form1.Create(Sender: TObject);
begin
     YNEDit:=0;
     for i:=0 to ComponentCount-1 Do
      begin
        if (Components[i] is TDBEdit) then
         begin
           TDBEdit(Components[i]).OnChange:=@ChangeEdit;
         end;
     end;
end

Третья правка. Работает )
Не работало, когда написал в родительском классе, а перекрыл наследником.