Проблема в следующем:
- Есть Interface с двумя методами Load и Save и свойством isChanged
- Есть множество фрейсов TFrame, поддерживающих данный Interface
- Фреймы имеют различные компоненты с возможностью ввода данных, такие как TEdit, TCheckBox, TComboBox, TMemo и возможно другие
- Load - заполняет поля значениями
- Save - записывает (только если isChanged=true)
- isChanged - устанавливается, если какое-либо поле ввода было изменено
- При записи запрос на сохранение изменений, при положительном ответе Save, отрицательном, если что-то менялось - Load.
В общем-то все компоненты имеют событие onChange в котором можно устанавливать isChanged, НО... Нужно рекурсивно обойти все компоненты и субкомпоненты фрейма(TPageControl, TScrollBox и прочее), чтобы инициализировать событие (или дополнить, если оно уже задано), а при загрузке все их отключать, после присваивать заново. Как-то это всё долго, медленно и не красиво.
В общем нужен свежий взгляд со стороны на проблему... Может возможно как-то глобально перехватить ввод от всех компонентов в фрейме, чтобы включать флаг isChanged? Можно ли во фрейме создать событие, которое будет реагировать на изменение полей ввода одного из его компонентов? Или как к такому вопросу лучше подойти?