Добавить новое свойство в Action в TActionList

Question

Добавить новое свойство в Action в TActionList

Как добавить новое опубликованное (для отображения в Инспекторе объектов) свойство в действие TActionList в Delphi?

тип данных свойства - логический.

Благодарю.

2

delphi taction tactionlist

Источник

user1512094 26 июл '12 в 11:16

1 ответ

Решение

Другие вопросы по тегам delphi taction tactionlist

user505088 26 июл '12 в 11:21 2012-07-26 11:21 · Accepted Answer · 2012-07-26 11:21

Создайте свой новый класс действий, производный от TAction, Например:

TMyAction = class(TAction)
...
published
  property MyBoolProp: Boolean ....
end;

И тогда вы можете зарегистрировать его из вашего пакета времени разработки Register процедура по вызову RegisterActions,

procedure Register;
begin
  .... // register any other components
  RegisterActions('MyCategory', [TMyAction], nil);
end;

Затем в редакторе списка действий выберите New Standard Action и ваше действие появится в виде дерева доступных действий.

В комментариях вы подразумеваете, что хотите изменить TAction иметь новую собственность. Это потребовало бы модификации самого VCL, и это вне вашего контроля. Без сомнения, VCL можно взломать, чтобы достичь того, о чем вы просите, но это не очень хорошая идея.