Fügen Sie der Aktion in TActionList eine neue Eigenschaft hinzu

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

  •  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.

War es hilfreich?

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.

enter image description here

enter image description here

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.

Lizenziert unter: CC-BY-SA mit Zuschreibung
Nicht verbunden mit StackOverflow
scroll top