Aggiungi nuova proprietà all'azione in tactionlist
-
12-12-2019 - |
Domanda
Come posso aggiungere nuova pubblicazione (da mostrare nella proprietà dell'ispettore oggetto) all'azione della rappresentazione di taction in Delphi
Il tipo di dati di proprietà è booleano.
Grazie.
Soluzione
Crea la tua nuova classe di azione derivante da TAction
.Ad esempio:
TMyAction = class(TAction)
...
published
property MyBoolProp: Boolean ....
end;
.
E quindi è possibile registrarlo dalla procedura Register
del pacchetto Time Design chiamando RegisterActions
.
procedure Register;
begin
.... // register any other components
RegisterActions('MyCategory', [TMyAction], nil);
end;
.
Poi dall'editor elenco Azione, selezionare New Standard Action
e la tua azione apparirà nella vista ad albero delle azioni disponibili.
.
Nei commenti che sembra che si desideri modificare TAction
per avere una nuova proprietà.Ciò richiederebbe la modifica al VCL stesso e questo è oltre il tuo controllo.Senza dubbio il VCL potrebbe essere violato per ottenere ciò che chiedi ma non è una buona idea.