Регистрация EnumSet

Vadim Mescheryakov

Как правильно зарегистрировать такие типы:


TNavigateBtn = (nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh);

TButtonSet = set of TNavigateBtn;

AlexTZ

В FS это не поддерживается; надо регистрировать только TButtonSet.
AddEnumSet(TButtonSet, 'nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh')

Vadim Mescheryakov

Но в событие

TDBNavigator передается константа имеющая тип - TNavigateBtn.

Этот класс не единственный, который использует такие типы.

Как это можно реализовать?