Fügen Sie der Aktion in TActionList eine neue Eigenschaft hinzu
-
12-12-2019 - |
Frage
Wie kann ich der Aktion von TActionList in Delphi eine neue veröffentlichte Eigenschaft (die im Objektinspektor angezeigt werden soll) hinzufügen?
Der Eigenschaftsdatentyp ist Boolean.
Danke.
Lösung
Erstellen Sie Ihre neue Aktionsklasse, indem Sie von ableiten TAction
.Zum Beispiel:
TMyAction = class(TAction)
...
published
property MyBoolProp: Boolean ....
end;
Und dann können Sie es aus Ihren Design-Time-Paketen registrieren Register
Verfahren durch Aufruf RegisterActions
.
procedure Register;
begin
.... // register any other components
RegisterActions('MyCategory', [TMyAction], nil);
end;
Wählen Sie dann im Aktionslisteneditor aus New Standard Action
und Ihre Aktion wird in der Baumansicht der verfügbaren Aktionen angezeigt.
In den Kommentaren scheinen Sie anzudeuten, dass Sie Änderungen vornehmen möchten TAction
eine neue Immobilie haben.Dies würde eine Änderung der VCL selbst erfordern und liegt außerhalb Ihrer Kontrolle.Zweifellos könnte die VCL gehackt werden, um das zu erreichen, was Sie wollen, aber das ist keine gute Idee.