Einzelnen Beitrag anzeigen

Delphi.Narium

Registriert seit: 27. Nov 2017
2.415 Beiträge
 
Delphi 7 Professional
 
#6

AW: Umbenennen aller Menuitems und Buttons nach Action

  Alt 19. Mai 2021, 12:17
Also ich mache das ganz einfach:

Es gibt nur die TActionList (bzw. einen Nachfahren, der das Weiterbeschrieben erledigt).

Menüeinträge und Buttons werden erst beim Programmstart (also zur Laufzeit) erstellt.

Der TActionList-Nachfahre hat ein Attribut von Typ TPanel, in dem im Objektinspektor das TPanel zugeordent wird, auf dem die Buttons liegen sollen.

Es gibt also ein Panel für die Buttons. Je Action ein TSpeedButton. TAction zuweisen, fertig.

Dem Application.Mainform wird ein TMainMenu spendiert. Für jede Kategorie der TActionList wird ein Menüeintrag gemacht.

Die TActions werden, entsprechend ihrer Kategorie, zu diesen Menüeinträge hinzugefügt.

Namen kann man dann vergeben, wie man will, sie sind im Programmablauf aber nicht wirklich von Bedeutung.

Vorteil: Man spart die redundate Pflege von Buttons, Menüitems, ... und vergisst auch nicht mal versehentlich was

Über die Eigenschaften Enabled, Visible, Tag, GroupIndex, ... kann man ggfls. auch steuern, ob Button bzw. Menüeintrag überhaupt erstellt werden sollen.

Bei mir heißt
GroupIndex = 0: Menüeintrag und Button
GroupIndex = -1: Menüeintrag
GroupIndex = -2: Button
GroupIndex = -3: weder Button noch Menüeintrag

Achso: Funktioniert auch mit mehreren TActionList, sogar, wenn sie auf unterschiedlichen Formularen oder in 'nem, Datamodule, ... liegen, die Menüeinträge befinden sich alle im Hauptmenü des Programmes.
  Mit Zitat antworten Zitat