Toolbar -> Toolbutton -> Action

[HolgerCW]

Hallo zusammen,

ich habe eine Toolbar. Auf der Toolbar befinden sich mehrere Toolbuttons. Die Toolbuttons sind mit einer Actionlist verknüpft.

Wie kann ich jetzt den "Action.Name" ermitteln, mit der der Toolbutton verknüpft ist.

Gruss

Holger

[uligerhardt]

ToolButton1.Action.Name?

[HolgerCW]

Ja, Du hast recht.

Hatte mich da verzettelt.

Wollte die Toolbutton per ComponentCount durchsuchen und das klappte am Anfang einfach nicht. Nun habe ich es:

Delphi-Quellcode:

For I := 0 to FM_Main.ComponentCount - 1 do
  begin

   if FM_Main.Components[I] is TToolButton then
   begin

    MeinToolButton := TToolButton(FM_Main.FindComponent(FM_Main.Components[I].Name));

    If MeinToolButton <> nil then
    begin

     If MeinToolButton.Action <> nil then
     begin

      Name := MeinToolButton.Action.Name;

     ...

Gruss

Holger

[uligerhardt]

Ich glaube, du kannst das immer noch einfacher machen.
Die Zeile
   MeinToolButton := TToolButton(FM_Main.FindComponent(FM_Main.Components[I].Name));
kannst AFAICT so schreiben:
   MeinToolButton := TToolButton(FM_Main.Components[I]);
Dann dürfte auch die darauf folgende Prüfung auf nil hinfällig sein.

[HolgerCW]

Vielen dank,

werde es auch so umsetzen.

Gruss

Holger

[uligerhardt]

Vielleich musst du ja auch gar nicht mit FM_Main.Components werkeln, sondern kannst dich auf TToolBar.Buttons oder TActionList.Actions beschränken?