Adicione nova propriedade para a Ação em TActionList

Question

Como posso adicionar novos publicado (a ser mostradas no Object Inspector) propriedade para a Ação de TActionList em Delphi

a propriedade tipo de dados Booleano.

Obrigado.

Answer 1

Criar a nova classe de acções derivados de TAction.Por exemplo:

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

E, em seguida, você pode registrá-lo a partir do seu pacote de tempo de design do Register procedimento chamando RegisterActions.

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

Em seguida, a ação do editor de lista, selecione New Standard Action e a sua ação será exibido no modo de exibição de árvore de acções disponíveis.

---

Nos comentários você parece implicar que você deseja modificar TAction para ter uma nova propriedade.Que exigiria a modificação para o VCL próprio e que está além de seu controle.Sem dúvida, a VCL poderia ser hackeado para alcançar o que você pede, mas que não é uma boa ideia.