Toolbar -> Toolbutton -> Action

[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