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

StackOverflow https://stackoverflow.com//questions/11668085

  •  12-12-2019
  •  | 
  •  

Вопрос

Как добавить новое опубликованное свойство (которое будет показано в инспекторе объектов) к действию TActionList в Delphi

тип данных свойства — Boolean.

Спасибо.

Это было полезно?

Решение

Создайте новый класс действий, производный от 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 и ваше действие появится в древовидном представлении доступных действий.

enter image description here

enter image description here

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

Лицензировано под: CC-BY-SA с атрибуция
Не связан с StackOverflow
scroll top