Определение наличие события

[SpaceIQ]

Приветствую!

У меня есть класс для валидации введенных пользователем данных. В один из методов класса происходит передача виджета как TWidgetControl и некоторых параметров, отвечающих за его валидацию.

Я выполняю runtime валидацию, то есть, сразу после окончания ввода происходит валидация данных. Для этого необходимо переопределение события OnChange. Я его переопределяю, но как это делается сейчас, мне не нравится.

Дело в том, что я вначале определяю класс виджета, а потом устанавливаю OnChange, то есть:
Код

PHP код:

if MyWidget is TEdit then
  TEdit( MyWidget ).OnChange := MyChecker; 


Но есть еще и TComboBox, TListBox и т.д. + мои собственные виджеты. Мне приходиться перечислять их все, а так же ссылать на них в секции Uses.

Вопрос такой: можно ли определить у виджета наличие события без приведения к типу и установить? Ну или как-то сделать, чтобы не приходилось перечислять все виджеты, которые только могут быть?

[Квэнди]

Использовать не конкретные приведенные классы, а общего предка

[SpaceIQ]

Это ясно. Но дело в том, что предок у TEdit - TCustomEdit, у TComboBox - TCustomComboBox, TListBox - TCustomListBox. А они уже наследуются от TWidgetControl, у которого нет основных событий, то есть события определяются не у предка (TWidgetControl) а у потомков (TWidgetControl, TComboBox, TCustomListBox).

Все бы ничего, не так много встроенные виджетов, можно было бы всех их легко перечислить, даже вот эти три TCustomEdit, TComboBox, TCustomComboBox - и все различные поля ввода, маски и прочее уже обрабатываются как надо. Но у меня свои виджеты, которые представляют из себя микс, то есть наследуются от TPanel, а на нем уже разные специфические группы. Вот это я не могу так перечислить.

[Квэнди]

Т.е. иерархия ваша собственная ? тогда практичней будет создать интерфейс, в который включить событие и реализовывать этот интерфейс классами, тогда рассматривайте объект не как объект некого класса, а как объект некого интерфейса. Либо же динамично проверять реализует ли объект некий интерфейс.
Ну или использовать RTTI FieldAddress или TypInfo.GetPropInfo

[SpaceIQ]

Да, то что нужно. Так как стандартные виджеты не реализуют подобного интерефейса, а хотелось бы унифицированности, поэтому я воспользовался вторым вариантом.

Не знал что есть такой юнит TypInfo. Спасибо за помощь! Использую теперь его примено вот так:

PHP код:

  NewMethod, Method: TMethod;
  ...
  NewMethod.Code := Self.MethodAddress( 'MyMethod' );
  NewMethod.Data := Self;
      
  Method := GetMethodProp(Widget, 'OnChange');
  if Method.Code <> nil then
    SetMethodProp(Widget, 'OnChange', NewMethod);