Agregar nueva propiedad a Acción en TActionList

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

  •  12-12-2019
  •  | 
  •  

Pregunta

¿Cómo puedo agregar una nueva propiedad publicada (que se mostrará en el Inspector de objetos) a la Acción de TActionList en Delphi?

el tipo de datos de la propiedad es booleano.

Gracias.

¿Fue útil?

Solución

Crea tu nueva clase de acción derivando de TAction.Por ejemplo:

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

Y luego puedes registrarlo desde tu paquete de tiempo de diseño. Register procedimiento llamando RegisterActions.

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

Luego, desde el editor de la lista de acciones, seleccione New Standard Action y tu acción aparecerá en la vista de árbol de acciones disponibles.

enter image description here

enter image description here

En los comentarios pareces dar a entender que quieres modificar. TAction tener una nueva propiedad.Eso requeriría una modificación del propio VCL y eso está fuera de su control.Sin duda, el VCL podría piratearse para lograr lo que pide, pero no es una buena idea.

Licenciado bajo: CC-BY-SA con atribución
No afiliado a StackOverflow
scroll top